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THIS MONTH'S MAGAZINE 
The computer aided design program called ASTAAD that we featured in the December 
1983 issue of BEEBUG generated a lot of interest and ideas for further enhancement. 


This month we show you how to extend the original version to provide a host of new 
features. 


We are also starting a new series of DIY articles which are designed to help you 
test out your machine when you suspect a fault, and identify the source. This should 
help you when you take your machine along for repair. 


SECOND PROCESSORS 

Acorn have still given no firm date for the release of their long awaited second 
processor systems, though this is still expected to be around Easter time. What is 
even more disturbing is the report that Acorn already have numerous orders for 6502 
second processor systems for use as second level econet systems, and that as a 
consequence, any other orders for 6502 second processors may have to wait for up to 
12 months before supplies become generally available. 


WHAT TO DO WITH YOUR OLD O.S. 1.0 

If you still have one of the old 1.0 operating systems, supplied as 2 EPROMS on a 
carrier board, now is the time to exchange it. BEEBUG are currently able to offer in 
return either the new 0.5. 1.2 ROM, or a £5 voucher which can be used in part 
payment for any item from BEEBUG or BEEBUGSOFT. This offer only applies to the 1.0 
version and not to the original version 0.1 which was also supplied initially on a 
carrier board. If you are unsure which version O.S. is in your machine, then typing 
'*FXÜ «return»' will display this information on the screen. Full details of this 
offer are at the back of this issue. 


HINT WINNERS 
This month's hint winners are A.Pemberton who wins the £18 prize and 


S.J.Wilkinson who wins the £5 prize. We still need all your good hints and tips for 
the magazine. 


MAGAZINE CASSETTE 

This month's magazine cassette contains the full version of our extended version 
of ASTAAD (called ASTAAD2), the very popular computer aided design program first 
described in the December 1983 issue of BEEBUG, and the winning program (ROMAN) by 
Keith Walker in our Roman Numeral Brainteaser competition, which appeared in the 
November supplement. We have also include the four catalogue versions of the two 
programs presented in this month's article on Multiple Disc Catalogues, а very 
useful facility for all disc users. 
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The Chip Shop 
On Saturday at 5pm, BBC Radio 4 is 
presenting 'The Chip Shop', a series of 


programmes | about the world of 
computing. The Chip Shop is also 
offering a takeaway service of computer 
software that will be broadcast over 
the air. This will use an Esperanto 
version of Basic developed in the 
Netherlands and called Basicode. 
Details of this are available as 
'"Factsheet 1! from The Chip Shop, BBC, 
London W12 8QT. 


Acornsoft Cassette to Disc Exchange 

Acornsoft have launched an exchange 
service whereby purchasers of their 
cassette software can, at a later date, 
exchange this for a disc version at a 
cost of 50$ of the normal price of the 
disc version. To use the service, 
simply send your cassette with the 
correct money to: Disc Replacement 
Service, Acornsoft Ltd., c/o Vector 
Marketing, Denington Industrial Estate, 
Wellingborough, Northants NN8 2RL. The 
service is available now, though you 
should check the current Acornsoft 
catalogue for availability (and price) 
of 40 or 8@ track disc versions. 


‘Acorn User’ changes hands 

Addison-Wesley have recently decided 
that their British subsidiary should no 
longer continue publishing the 
successful magazine ‘Acorn User’. The 
magazine will in future be published by 
Redwood Publishing, a company set up by 
Acorn. 


Interfacing the BBC Micro 

A range of fully isolated interfaces 
for the BBC micro (from £44.98 to 
£112.48 inc.), available from Minor 
Miracles, has been designed for home 
users. Extra tough versions are 
available for school and industry use. 
Minor Miracles also sell а digitiser 
(£36) and a light pen (£15 inc). 
Further information may be obtained 
from Minor Miracles, P.O.Box 48, 
Ipswich, IP4 2AB. 


The BBC Micro Speaks Out? 


The Microtalker is a new low cost 
speech synthesiser using  allophones, 
which allows any English word to Бе 
pronounced, but at a slightly lower 
quality speech than the LPC system used 
by Acorn, is available from R.P.S 
Electronics called the MICROTALKER, for 
£39.95 (+80р post + VAT). It plugs 
into the User Port, and contains a 
built in amplifier, speaker, and volume 
control. The MICROTALKER is available 
from: 

R.P.S Electronics, Unit C200, Saltaire 
Workshops, Ashley Lane, Shipley, West 
Yorkshire, BD17 7SR. 


Business Programs 

HCCS have recently produced a range 
of Integrated Business Software written 
for the BBC disc system. The full 
package includes Invoicing and Sales 
Ledger, Purchase Ledger, Nominal 
Ledger, Payroll, Stock Control апа 
Order Processing. The cost of each 
module is £59.95 each, and is available 
from: 
HCCS, 22 Market Square, Biggleswade, 
Beds, SG18 8AS. 


Owl Perch 


This is а sturdy monitor support, 
which stands over the BBC micro, 
raising the monitor to eye level and 
protecting the micro. They are cast in 
metal and painted with a cream enamel 
paint. The cost is £35 (inclusive) and 
a partly finished and unpainted version 
which costs £20 (inclusive) is also 
available. For more details, contact: 
William Broady 5 Son Ltd., English 
Street, Hull, НОЗ 2DU. 


BBC Bridge 


ICB Enterprises have recently 
introduced a Bridge program which can 
produce a random deal, play three hands 
and includes many other facilities. It 
costs | £20.50 inc. Contact: ICB 


Enterprises, 33 Burnt Stones Drive, 
Sheffield, 510 5TT. 
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EXTENDING ASTAAD (32K) 


by David А. Fell 


The Computer Aided Design program called ASTAAD that we published in 


the December 1983 


issue of the magazine provoked quite an 


enthusiastic reponse from readers. Many of you suggested ways in 
which the original program could be extended and improved. We have 


implemented six 


important new 


features in a 


modular апа 


comprehensive update of the original program to produce ASTAAD2. 


The sections to be added to ASTAAD 


fall into five areas: 


1. 
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Facilities to load and save the 
current picture to tape/disc, and to 
call a user-supplied machine code 
printer screen dump program. 


The ability to include  user-defined 
characters in 'ASTAAD' text, and the 
facility to draw ‘filled in" 
polygons and circles. Both of these 
are ‘toggled’ (that is to say, they 
are controlled by а 'switch' that is 
either on or off). 


The facility to reverse the plotting 
colours. This means that the 
'area-clear' facility can fill in a 


rectangle, and then text can be made 
to appear in the background colour 
on this area. This extension applies 
to all functions. 


by. 
combination with one of 


We have also 


included a dummy 
procedure to illustrate how easy it 
is to incorporate your own features. 
It shows the correct way to select a 


text display, and also how to exit 
back to the main part of ASTAAD2. 


Finally, we have also included some 
tidying up of various aspects of the 
program, and some small extras to 
make it more attractive. These 
include the production of a tone 
whenever TAB or one the function 
keys is pressed, the inclusion of a 
border around the drawing area (with 
extra protection to ensure that text 
does not stray into the drawing 
area, and vice versa), and better 
error handling facilities (see later 
for more details). 


All the new features are controlled 
means of the Shift key in 
the red 


function keys. 
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Bo 


| Save Current Screen 
| Load new Screen 


| Toggle the infill switch 


The other function keys (and the cursor 
keys) will merely bleep if pressed when 
shift is held down. 


Normally, in ASTAAD2, the screen is 
kept separated into two windows. The 
main drawing window is defined as the 
graphics window, and all the drawing is 
carried out in this window. When a 
prompt is needed, the text and graphics 
cursor are separated (with VDU4), and 
the text is input in the current text 
window (the top two lines on the 
Screen). 


Error handling has been improved 
considerably. When an error occurs, a 
check is first made to see if it is an 
Escape error. These have been split 
into two types: Escape and 
Shift-Escape. Escape is the same as the 
original ASTAAD, and merely resets a 
few paramters and sets the cursor to 
the centre of the screen. This can 
occasionally leave part of the cursor 
on the screen, and so this is not the 
best way of centring the cursor. 
Holding down Shift whilst pressing 
EScape causes a normal Escape error to 
be generated. Whenever any normal error 
occurs, the error message and line 
number are displayed at the top of the 
Screen. The user is then prompted 
whether or not they wish to continue. 
This allows for the user to exit 
without having to press the Break key. 
It also means that if an error occurs, 
say when trying to find a file on disc, 
the picture just created is not lost. 
Thus to exit ASTAAD2, press Shift and 
Escape, and answer with an 'N'. 
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| "RUN a printer dump program 
|| Toggle the soft characters 


| call to dummy user routine 
| Toggle reversal of colours 
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PRINTER SCREEN DUMP 

The screen dump facility enables the 
user to dump the image displayed on the 
screen to their printer. The routine 
has been tailored so that a machine 
code printer dump program will be. 
loaded and run when required 
(equivalent to *RUN). The screen dump 
must be assembled and saved on cassette 
or disc prior to using it with ASTAAD2 
and you will need to decide at what 
memory address to do this. Disc users 
will normally be able to assemble their 
Screen dump program at &A00 while 
cassette users should use 5000, though 
you will need to make sure that your 
assembled screen dump will fit in one 
раче (256 bytes) of memory. Once 
assembled the Screen dump program 
should be *SAVEd ready for use. The 
Screen dump is selected in ASTAAD2 by 
pressing Shift-f2 and entering the name 
of your saved screen dump routine, 
which is then loaded (from cassette or 
disc) and run. 


Cassette users, particularly, might 
prefer to load the screen dump routine 
(use *LOAD) before running ASTAAD2 


which will need amending so that the 
screen dump routine is CALLed when 
required, thus saving the time involved 
in loading. 


SAVING AND LOADING SCREENS 

The screen in Mode 0 occupies memory 
in one continuous block from 63000 to 
&7FFF. To save the screen, all that is 


needed is to supply а filename, and 
ASTAAD2 will do the rest. To save a 


picture, а typical sequence of actions 
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might be as given below: 


1) Construct your desired image. 
2) Hold down Shift and press Ед. 
3) Enter filename and press Return. 


If you are using tape, you will now 
have to prepare yourself for a fairly 
long wait! On exit from the save 
routine, the cursor is left where it 
was before the save operation маз 
performed. 


| Loading of а screen is done in a 

similar manner. To load a screen, press 
Shift-fl, and enter the filename of the 
Screen to be loaded. Once the screen 
has been loaded, the cursor is set to 
the centre of the screen. The previous 
contents of the Screen will be 
completely replaced by the new screen 
as it is loaded. 


USER DEFINED CHARACTERS 

.. 'ASTAAD' is also the name given to 
the routine brought into action by 
pressing Ед. ASTAAD stands for Any Size 
Text printed at Any Angle on the 
Drawing. This facility, however, was 
limited, in the original version, to 
the normal keyboard characters. An 
extension has been provided to allow 
for the soft (or user defined) 
characters to Бе used instead. This 
allows for new characters to be 
designed, and then also drawn at any 
angle, and at any size. 


The choice of characters is 
controlled Бу  Shift-f3. With this in 
the 'off' state, ASTAAD behaves as it 
did before. When in the 'on' state, 
user defined characters are selected 
from the keyboard with 'A' selecting 
character 224, 'B' selecting character 
225 and so on. The characters are 
displayed at the top of the Screen as 
Selected. This allows for the new 
string to be seen as it is being built 
up. The user defined characters must be 
Set up before loading ASTAAD2 with the 
VDU 23 statement (see User Guide pages 
170 and 384). The Shaper program, 
published in BEEBUG Vol.2 No.6, is ап 
ideal way to design characters that you 
would like to use in ASTAAD2. 


AS an example, try the following. 
Enter Basic (pressing Break will do if 
you are already in Basic) and type in: 
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VDU23,224,0,255,191,159,159,145,17,17 


| shown e illustration below. 
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Now load ASTAAD2, and press 'Shift-f23', 
(If it now says that the soft 
Characters are off, press 'Shift-f3' a 
second time.) е 

Press 'fÜ' for ASTAAD text 

Press 'A' and Return 

Enter a size, say 20 

Enter an angle, say 10 
Now watch a primitive elephant being 
displayed. This illustrates that the 
Soft character is now being read from 
the memory definition. 


FILLED POLYGONS AND CIRCLES 

Another new feature, controlled by 
Shift-f4, is the in-filling of polygons 
(and thus also circles, as they are 
drawn using the polygon routine). 
Normally, when a polygon is drawn in 
ASTAAD, it appears only as an outline, 
but | ASTAAD2 allows for either an 
outline, or a solid polygon to be 
drawn. The selection between the two is 
made by pressing Shift-f4. For example, 
if pressed once, then 'in-fill' may be 
turned off. This means that only the 
polygon's outline will be drawn. If 
Shift-f4 is pressed again, then the 
switch will be altered, and now a solid 
polygon will be drawn. If the f3 option 
is used to repeat the last polygon 
drawn, then whether or not the polygon 
is filled in is dependent on the 
current State of the in-fill switch, 
and not the state of the switch when 
the initial polygon was drawn. This 
feature also applies to the circle 
drawing routine selected by f9. 


REVERSING FOREGROUND AND BACKGROUND 

When drawing lines, filling in 
polygons, or any other ASTAAD function, 
then the foreground colour is normally 
black, and the background colour white 
(readers may like trying yellow on blue 
as opposed to black on white) by 
including appropriate VDU 19 at the 
start of the program. There is a final 
switch in ASTAAD2 that affects the 
drawing colours. To alter this switch, 
press Shift-f6. In the 'on' state, the 
drawing will be drawn normally (black 
on a white background). In the ‘'off! 
State, the drawing will take place in 
the reverse colours. This allows for 
the "blank out an area! function, 
invoked by £8, to fill ina rectangular 
area. An example of the use of various 
functions, including reverse colour, i 
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EXTENDING THE ASTAAD PROGRAM 

The additions to the program have 
been divided into three sections, to 
alleviate excessive typing for the user 
who only wants, Say, the screen 
load/save functions. All or each should 
be typed into the computer AFTER 
loading іп the original ASTAAD, which 
must not have been renumbered іп апу 
Way , since some of the new lines 


LISTING OF COMMON 
10 REM Program ASTAAD2 
20 REM Version Bl.5 
30 REM Author Jim Tonge/David Fell 
70 MODE 0 
71 VDU24,4;4;1275,;948;18,0,129,16 
72 VDU24,8;8;1268;940;18,0,128,16 
73 VDU28,0,1,79,0 
75 DIM 05% 40 
77 ON ERROR PROCerror 
120 IF key=9 THEN V-5:Xl$-X$:Yl$-Y$:k 
т10:27-4:5О0М017,-10,125,1 
130 IF Кеу<129 PRINT CHRS (key) :Х%=Х%+ 
20% (X$«1250) * (Кеу<>9) :GOTO110 ELSE IF К 
еу<140 OR Кеу>144 SOUND17,-19,125,1 
150 ON J$ GOTO 180,160,200,220,230,23 
0,170,230,190,210,110,260,250,250,250,2 
50 ELSE 155 
155 ON J$-16 GOTO 221,222,223,224,225 
,226,227 ELSE GOTO 250 
221 REM PROCsave:PROCcursor 
222 REM PROCload:PROCcursor 
223 REM PROCdump: PROCcursor 
224 REM PROCtoggle: PROCcursor 
225 REM PROCfill:PROCcursor 
226 REM PROCdummy: PROCcursor 
227 REM PROCcolour:PROCcursor 
250 X$-X$-10* (J$213) %(Х%>10) +10* (Ј%=1 
4) * (X$«1268) : Y$-Y$-10* ($215) * (Ү$>10) +1 
Q* (J$216) * (Y$«940) : PLOTZ,X$,Y$ 
365 *FX226,145 


366 *FX227 
* 
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replace lines from the earlier version. 
Alternatively, save each of the new 
Sections separately using  *SPOOL and 
then use *EXEC to append each section 
as required to the original ASTAAD. The 
first section is a common section, and 
includes the new error handling 
routine, and the graphics and text 
window sections. This can be typed in 
by itself, and the new version of 
ASTAAD produced saved, and then used. 
If, however, either of the two main 
parts is to be used, then the common 
section MUST be typed in first, then 
the appropriate main part. Апу lines 
that occur in Part 2 should replace any 
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coincident ones 
Common, and Part 1 should 


required, 


in after Part 1. 


440 VDU4:@S=1 31082: PRINTTAB (60,1) B$*1 
Q—k; :VDU5:j-7J$ 
480 VDUA:INPUT''"Text? "TS''"Size? (2 
to 125): 
650 VDU4: INPUT''"Angle of arrow?  "W$ 
‘CLS? 7005 
670 PLOTy,-a,-b:PLOTO,a,b:PLOTy,-c,-d 
: PLOTO ,c,d | 
710 VDUA:INPUT''"Length? "L$''"Angle? 
(deg.) "N$:CLS:VDU5 
720 LX-L£*COS (RAD (№) ) sLY=L3*SIN (RAD( 
NS) ) :X2$=X3+LX: Y23=YS+LY : PLOTY , X23 ,Y2%: 
Х%-Х2%:Ү%-Ү2% i 
760 VDUA:INPUT''"Horizontal Axis?"H$' 
"Vertical Axis?"V$2''"No.of sides(30-ci 
rcle or ellipse) ?"G%sCLS:VDU5 
910 VDUA:INPUT''"Radius of circle? "В 
$:CLS:VDU5 
960 VDU24,X12$;Y12$;X$;Y$;1060,24,8;8;126 


85940; 


2260 DEF PROCerror 

2270 IF ERR=17 AND NOT ІМКЕҮ-1 VDU4,12 
„ 5: ENDPROC 

2280 VDU4,31,6,0 

2290 REPORT:PRINT" at line ";ERL;" has 
occurred;"'"Continue? (Y/N)"; 

2300 IF (GET AND &DF)-ASC"Y" VDU12,5:E 
NDPROC 

2310 *FX4 

2320 *FX225 1 

2330 VDU22,7:HIMEM-& 7СОО 

2340 REPORT:PRINT" at line ";ERL'"That 
's all folks!!" 
2359 


from either Part | or 
replace any 
lines from Common. If both sections are 
then Part 2 should be typed 


"S$''"Angle (deg.)?" T$:CLS: VDU5 
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LISTING OF PART 1 2100 INPUTTAB(6,0)"Name of file to loa 


d from: "5055 
221 PROCsave:PROCcursor 2110 SOSS="LOAD "+505%+" 3000" 
222 PROCload:PROCcursor 2120 X$-0S$:Y$-X$DIV256:CALL&FFF7 
223 PROCdump: PROCcursor 2130 CLS 
401 IF 2%-17 ENDPROC 2140 PROCsetup:k-z10:J2$-18:PROCruler 
402 IF J%=18 k-0:LOCALk:k-l9 2150 VDU5:ENDPROC 
2000 DEF PROCsave 2160 DEF PROCdump 
2010 IF J%<>17 ENDPROC ELSE VDU4 2170 IF J%$<>19 ENDPROC 
2020 INPUTTAB(6,0)"Name of file to sav 2180 VDUA 
е to: "505% 2190 INPUTTAB(6,0)"Name of screen-dump 
2030 CLS to RUN: "SOS$ 
2040 SOSS="SAVE "%505%%" 3000, 7ЕЕЕ" 2200 VDU12,26,28,0,1,79,0 
2050 LOCAL Х%,У% 2210 SOSS="/"+SOS% 
2060 X$-08S2$:Y$-X$DIV256:CALL&FFF7 2220 LOCAL Х%,Ү% 
2070 VDU5: ENDPROC 2230 X9$-208$:Y$-X2DIV256:CALL&FFF7 
2080 DEF PROCload 2240 VDU24,8;8;1268;940; 


2090 IF J$«»18 ENDPROC ELSE VDU4 2250 VDU5: ENDPROC 


LISTING OF PART 2 2610 LOCAL X%,Y% 
224 PROCtoggle:PROCcursor 2620 Х%-05% 
225 PROCfill:PROCcursor 2630 Ү%-Х% DIV 256 
226 PROCdummy: PROCcursor 2640 ?OS$-ASCMIDS(TS$,C$2,1)-4E£ 
227 PROCcolour:PROCcursor 2650 А%-10 
480 VDU4:TS=FNread:INPUT''"Size? (2t 2660 CALL &FFFl 
o 125): "S$''"Angle(deg.)?" T$:CLS:VDU5 2670 A$-OS$-*1 
510 ТЕ E% PROCread ELSE A%=&BF@Q+ASC ( 2680 ENDPROC 
MIDS (T$,C£,1))*8 2690 DEF FNread 
810 LOCAL I$,K$,M$,N,C,S,B,D,R,T,Y 2700 PRINT''"Text? "; 
815 IF F% Y-85 ELSE Y=5 2710 TS="" 
860 IF 1251 THEN PLOTY,K%,M% ELSE MOV 2720 LOCAL I$ 
ЕХ%,Ү%:МОУЕ K$,M$ 2730 REPEAT 
865 IF 1951 AND F% PLOT85,X$2,Y$ 2740 IS=GET | 
875 IF F% PLOT85,X%,Y% 2750 IF І%-21 PRINTSTRINGS (LENTS,CHRS1 
2360 DEF PROCtoggle 27) ; : TSz" ":I$-0 
2370 IF 1%<>20 ENDPROC ELSE VDU4 2760 IF І%-127 AND LENTS VDUI%:1%3=6:TS 
тан . ". =LEFTS (TS,LENTS-1) ELSE IF I$-127 VDU7:I$-0 
2 X NR E E IF I$ AND 18<>13 T$-TS4CHRSI$:VDU ^ — 
2. 2780 UNTIL 1%-13 
2410 PROCdelay TE 
2420 VDUI 2,53: ENDPROC 2810 DEF PROCcolour 
2430 DEF PROCfill 2820 IF J%<>23 ENDPROC ELSE VDU4 
2449 IF J$«»21 ENDPROC ELSE VDUA 2830 PRINT' ' "Toggling Colours to "; 
2450 PRINT''"Toggling infill to "; 2840 IF 0% PRINT"off.";:U%=FALSE: PROCo 
2460 IF ЕЗ FZ-FALSE:PRINT'off."; ELSE ff ELSE PRINT"on.";:U$-TRUE:PROCon 
F$-TRUE:PRINT"on."; 2850 PROCdelay 
2470 LOCALF$ 2860 VDU12,5:ENDPROC 
2480 PROCdelay 2870 DEF PROCoff 
2490 VDU12,5:ENDPROC 2880 GCOLG,129 
2500 DEF PROCdummy 2898 GCOLO,0 
2510 IF J%<>22 ENDPROC ELSE VDU4 2900 ENDPROC 
2520 REM THIS IS WHERE YOU COULD INSERT 2910 DEF PROCon 
2530 REM YOUR OWN ROUTINE. 2920 GCOLO,128 


2540 REM THE FIRST LINE EXITS IF THE CALL 293g GCOLG,1 
255@ REM IS NOT FOR YOU, OR SETS UP THE 2940 ENDPROC 


2560 REM TEXT WINDOW IF IT IS. 2950 DEF PROCdelay 

2570 REM ON EXIT, USE VDU12,5 2960 LOCAL Т? 

2580 REM AND THEN ENDPROC. 2970 T£-TIME 

2590 VDUI2,5:ENDPROC | 2980 REPEAT UNTIL TIME>T3+15@ OR ADVAL -1 
2600 DEF PROCread 2990 ENDPROC | | 
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ON ACORN’S LATEST 


by David A. Fell 


Following various rumours, announcements and exhibitions, David Fell 


DEVELOP^ 


{ENTS 


now reports on Acorn's latest products and future plans. 


ELECTRON LATEST 

Following the immediate success of 
the Electron, Acorn are finding it hard 
to ensure adequate deliveries of the 
assorted components required for the 
assembly of this micro, and as а 
result, Electrons are in short supply 
(indeed, we understand Acorn have 
issued 'Out of stock' posters for use 
by branches of W.H. Smith). 


On the plus side, Acorn аге 
currently working on producing a 
variety of add-ons for the Electron. 
These аге to be connected to the 
Electron via an expansion box which 
will link to the Electron using the 
rear edge connector. With this box 
connected to an Electron, the user will 
then be able to use a printer, 
joysticks and a ROM expansion board 
(which should allow for Basic and two 
other sideways ROMs). The expansion box 
is now expected to be available about 
Easter. 


A cartridge ROM socket is also 
planned, in principle similar to those 
available for machines like the Atari 
VCS. Acorn believe that many Electron 
owners will not want to fiddle about 
too much fitting ROMs, as is the case 
with the BBC Micro, so they hope that a 
large amount of software will be 
released in a format suitable for use 
with the cartridge ROM system. A disc 
interface may also be prepared for 
release at a later date. 


ЕСОМЕТ 

Acorn have- recently been 
encountering a number of problems in 
their Econet local area network, and 
this has even caused unfounded rumours 
that Acorn were going to drop Econet. 
Acorn report that they have discovered 
the cause of these problems, and are 
now going ahead full speed with their 
Econet system. 


IEEE-488 FULL SPECIFICATIONS INTERFACE 
This product has now been released, 
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and we hope to report on it in the next 
issue of BEEBUG. 


CAMBRIDGE RING 

Under current development, but 
probably not available for a while, is 
an interface to link up BBC micros to 
the advanced local area network (LAN) 
called the Cambridge Ring. This 
communications system is based around a 
"капа" that links all stations on the 
network together. Information is 
transmitted in 'packets' which are sent 
around the ring at extremely fast 
speeds. The Cambridge Ring was 
co-invented at the University of 
Cambridge by Dr. Andy Hopper who is a 
non-executive Research Director at 
Acorn and who provides, on a part-time 
basis, help with some of Acorn's 
advanced projects апа development 
programmes. 


WINCHESTER DISC DRIVES 

Not ready for release, but certainly 
coming on in development, is Acorn's 
Winchester disc system (Winchesters 
are sealed high capacity disc drives 
using hard rather than floppy discs). 
This will be in the form of a 16K ROM 
(containing the Winchester Filing 
System, known as WFS), that would be 
inserted into one of the 'sideways' ROM 
Sockets in the Beeb, and the Winchester 
disc drive(s) which will be attached to 
the Beeb via the 1МН2 bus. The storage 
capacity is likely to be of the order 
of 10М bytes, and the system will cost 
approximately #1500. 


SECOND PROCESSORS 

When originally planned, it was 
envisaged that the BBC Micro would have 
the ability to use 2nd processors. 
After lengthy delays, the projected 2nd 
processors are now appearing on the 
Acorn stands at exhibitions, and some 
have been available for testing 
purposes. Much has been said 
(particularly Бу Acorn) on making 
programs  'Tube' compatible, but this 
has, until now, seemed a somewhat 
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theoretical requirement. Acorn have 
delayed the release of the 2nd 
processors (of which there are three 
planned at present; a 6502, a 780 and а 
16032) to ensure that, when available, 
there will (hopefully) be no problems 
with them. The term Acorn are using is 
'extensive in-house testing'. However, 
Several other second processor systems, 
Such as that from Torch, have been 
available for use with the BBC Micro 
for many months now. 


Basically, а Beeb with a 2nd 
processor is a complex system in which 
the 'number crunching' (or the language 
processing) is done by the 2nd 
processor, and the input and output 
functions are carried out by the 
original 'host' Drocessor. The 
advantage in having two processors is 
simple; a two processor system can 
process data significantly faster than 
a one processor system. Because of the 
high speeds involved for data transfer 
via the Tube (in the order of one 
megabit per second transfer rates), it 
is essential that the two processors 
communicate with each other correctly. 
In designing the Tube, Acorn have 
encountered a number of problems with 
regards to the timing of the inter 
processor communications, but these, it 
is reported, have now been resolved. 
Readers may like to read David Graham's 
article on the implications of the Tube 
in BEEBUG Vol.1 No.6. 


6502 2ND PROCESSOR 

The 6502 2nd processor is | now 
virtually ready for release, and its 
price tag is expected to be about £195 
inclusive of VAT. With the 2nd 
processor fitted, the user should get 
42k of memory available from Basic for 
his (her) program. There is no need for 
16k to be set aside for the operating 
system, as this still resides in the 
"host! processor's memory map. However, 
there is still a need for some extra 
operating system code to be present 
because the Tube needs something to 
control the communications іп each 
processor. Only about 4k of code is 
needed for this however, and so there 
is a further 12k of memory available 
between where Basic normally resides 


E: 


(&8000 onwards), and where it could 


reside (&B000 onwards). 


The Tube version of Acorn's Basic II 
has been assembled to reside ас 58000, 
allowing the user to take advantage of 
the 12K of RAM that would otherwise not 
be accessible. If поё already 
installed, a DFS (disc filing system) 
ROM will also be supplied, as this 
contains some code necessary to control 
data transfers across the Tube. This 
code resides in the 'host' processor. 


2-80 2ND PROCESSOR 

The 280 2nd processor is also nearly 
ready for release. As this will be 
supplied with the CP/M 2.2 Operating 
System, it opens the door to a 
tremendous number of proven CP/M 
applications packages. Because much of 
а user's existing software will not 
work оп a Beeb with the 780 2nd 
processor, with the exception of Tube 
compatible Basic programs that do not 
use machine code, Acorn are supplying a 
large quantity of software bundled іп 
with the package. This is also designed 
to make the purchase of а Z80 2nd 
processor offer the user significant 
gains over the purchase of other 
alternatives, and thus provide a very 
attractive package to the first time 
small business computer user, at whom 
this system is particularly aimed. 


The Acorn 280 2nd processor system 
is, like the 6502 2nd processor, 
expected to be available in the Spring 
of this year. The price is likely to be 
between £350 and £400. Major software 
supplied with the 280 2nd processor 
will include а sophisticated word 
processing system, а database package 
and a spreadsheet calculator. The user 
will also receive a 780 version of BBC 
Basic, and another version, Microsoft 
Basic, that is normally used with CP/M 
based systems. To complement these, the 
user is also provided with a systems 
generator which allows the user to 
design an applications package by 
simply specifying it in functional 
terms. Finally, the user gets a full 
version of Focus CIS COBOL, the 
established computer language 
business applications. 
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ICRO (PART 1) — SIDE 


by Hugh D. B. Smith 


With an increasing number 


of BBC micros in use, it is almost 


inevitable that a number of users will experience problems with their 
machine's hardware or firmware. To help you carry out initial testing 


of a suspected faulty system, we 


will be publishing а series of 


articles and short test programs. We start the series by looking at 


Sideways ROMs. 


In this series we aim to guide you 
through a set of simple test routines 
to help isolate some of the problems 
that might arise with your BBC micro. 
It is important to note that the 
utilities offered here, and in later 
articles, are only a guide and can 
never replace the | sophisticated 
equipment needed to fully test such a 
complex machine. As a result, you may 
well be able to isolate and identify a 
potentially faulty part of your machine 
before contemplating further action. 


In this first article, we present 
two programs to test sideways ROMs. For 
convenience both are not prone to 
failure but like any type of memory are 
not infallible. There are two main ways 
in which a ROM can fail, by failure of 
the chip itself, or by corruption of 
one or more bits in the ROM. The latter 
is more likely in EPROMs (to which this 
article also applies) and could be 
caused for a variety of different 
reasons. 


It is the second case that we shall 
deal with here, since if a ROM breaks 
down completely, then it is most likely 
that the machine will not function at 
all. The usual symptoms of memory bits 
changing state are errors or bugs in 
the use of the ROM software, where 
previously the ROM performed correctly. 


To be able to test a ROM, it is 
necessary to know where it resides 
inside the machine. In the BBC micro's 
Sideways ROM system, up to 16 ROMs can 
be used (by using a suitable expansion 
board). These are numbered from 0 to F 
(in hexadecimal). 


LISTING ROMS 

The first program, called simply 
ROM, will print a list of ROMs present 
in the machine, and their positions. 


For a machine with a ROM board these 
numbers are often printed next to each 
socket. The four sideways ROM sockets 
below the keyboard are numbered from 12 
to 15 (&C to .&F) looking from the 
keyboard and reading from left о 
right. 


Two points should be noted with 
this. First, if a ROM board is not 
present the machine employs a system of 
redundant addressing which means that 
each ROM will appear in the index up to 
four times, though only the last four 
sockets (12 to 15) should be noted. 
Secondly, the program will only work 
with ROMS that follow Acorn's 
specification on initial configuration. 
If the program appears to crash at a 
certain ROM title, as happens for 


example when an Amcom DFS is fitted, it 
is likely the ROM does not conform and 
it should be removed from the machine 
so that ROMs of lower priority may be 
read. 


10 REM Program ROM 


20 REM Author Hugh D.Brown-Smith 
30 REM Version Bl. | 


BEEBUG 


March 1984 


Volume-2 Issue-9 


40 REM BEEBUG March 1984 
50 REM Program subject to copyright 


70 ON ERROR GOTO 260 
80 PROCassemble 
90 MODE7 
100 ?&71-(PAGE*&700) MOD 256 
110 2&72= (PAGE-*&700) DIV 256 
120 FORT2-0TOl5 
130 ?(PAGE+&700+20*TS) =13 
140 NEXT 
150 CALL index 
160 $((15-2&75) *20+РАСЕ+8700) "BASIC" 
170 PRINT''CHRSIAICHRS134SPC5"SIDEWAY 
S ROM INDEX" 
180 PRINTCHRS141CHRS134SPC5"SIDEWAYS 
ROM INDEX" 
190 PRINT''CHR$129"ROM NUMBER "CHRS1 
33"ROM TITLE"! 
200 Е%=@ 
210 FORT$-15 TO 0 STEP-1 
220 PRINTCHRS130T$;CHRS131" ";S(R*2 
Ü-PAGE-&700) 
230 RS=RSt+1 
240 NEXT 
250 END 
260 ON ERROR OFF:MODE7:PRINT'':REPORT 
:PRINT" at line ";ERL:END 
1000 DEFPROCassemble 
1010 FORopt=9TO2STEP2 
1020 P$-PAGE-&600 
1030 [OPTopt 
1040 .index 
1050 LDX #15 
1060 STX &70 
1070 .mainloop 
1080 JSR empty 
1090 BMI nextrom 
1100 JSR readtitle 
1110 .nextrom 
1120 CLC 
1130 LDA &71 
1148 ADC £20 
1158 STA &71 
1160 LDA &72 
1170 ADC 400 
1180 STA &72 
1190 DEC &70 
1200 BNE mainloop 
1210 JMP findbasic 
1220 .empty 
1230 LDY &70 
1240 LDA 4880 
1250 STA &F7 
1260 LDA 400 
1270 STA &F6 
1280 JSR &FFB9 
1290 STA &73 
1300 RTS 
1310 .readtitle 
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1328 LDA 4580 | 1568 STA (&71),Y 


1330 STA &77 1510 INC &76 
1340 LDA $&09  . 1520 INC &74 
1350 STA &76 1530 CMP 420 
1360 LDY #0 | 1540 BNE titled 
1370 STY &74 1550 .lastletter 
1380 .titledg 1560 LDA #&@D 
1398 LDX &77 1578 LDY &74 
1480 STX &F7 1580 STA (&71),Y 
1410 LDX &76 1590 RTS 

1420 STX &F6 1600 .findbasic 
1430 LDY 570 1610 LDA #&BB 
1440 JSR &FFB9 1620 JSR &FFF4 
1458 STA &73 1630 STX &75 
1460 BEQ lastletter 1640 RTS 

1470 CMP #&@D 1650 ] 

1480 BEQ lastletter 1660 NEXT 

1490 LDY &74 1670 ENDPROC 
ROM TESTER 


There are a number of ways to test a 
ROM, the most common being by a 
'Checksum' method. This is simply a 
case of adding up every byte in a ROM, 
and comparing the sum with a value 
which is known to be correct. The 
problem with such a system is that 
multiple errors can cancel each other 
out so producing a correct checksum. A 
more reliable way is to perform what is 
known as Cyclic Redundancy Check (CRC). 
This works through the polynomial shown 
below for every byte in the ROM, 
producing a unique value which is 
almost infallible even for multiple 
errors. 


Х^16+Х^12+Х^5+1 


The second program presented here 
can be used to calculate the CRC of any 
Sideways ROM in the machine. Do note, 
though that different versions of ROMs 
will produce different figures and even > 
the smallest modification made by a 
manufacturer to ROMs of the same 
version number will result in different 
values. For this reason it is suggested 
that on receipt of a new ROM the 
program is run and the CRC noted. If at 
a later stage the ROM is suspected of 
failure, then the ROM should be 
re-tested and the values compared. 
Standard Acorn ROM software normally 
gives values as shown: 

Basic I 67FF 

Basic II EC@8 

DFS 0.90 8C4B 


As well as the position of the ROM 
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is important since if the wrong value 
is used then the CRC produced will be 
incorrect. The size of a ROM is often 
given in the advertising blurb, but may 
also be determined by the type number 
on the chip. In general if the last two 
digits are 64 then the ROM is 8k, and 
if the last 3 digits are 128 it is 16k. 
For example, 2764 and 27128 which are 
the most common EPROMS used are 8k and 
16k respectively. ROMs like BASIC and 
VIEW are both 16k. 


When running this program, the value 
of PAGE should be set to 81900 or lower 
if the program is to work correctly. 
Finally, do note that a CRC which 
differs from someone else's value does 
not necessarily mean a faulty 
component. 


10 REM PROGRAM CRC 

20 REM AUTHOR Hugh D.Brown-Smith 

30 REM Version В1.0 

40 REM BEEBUG March 1984 

50 REM Program subject to copyright 

60 : 

70 ON ERROR С0Т0340 

80 MODE7 

98 PRINT' 'CHRS141 ;CHRS134SPC5"SIDEWA 
YS ROM CRC TEST" 

100 PRINTCHRS1 41 ;CHRS134SPC5"SIDEWAYS 
ROM CRC TEST" 

110 PRINT'''''CHRS$131"Enter ROM потре 
r (0-Е)"; 

120 *FX15,1 

130 REPEAT 

140 A=GET 

150 UNTIL (A»47 AND A«58)OR(A»64 AND 
A«71) 

160 IF А<58 romnumber2$-A-48 ELSE romn 
umber2-A-55 

170 PRINTCHRS1 30"0" ; ~romnumber% 

180 PRINT''CHRS131"Enter ROM size (A= 
8k B=16k)"; 

190 *FX15,1 

200 REPEAT 

210 B=GET 

220 UNTIL B>64 AND В<67 


know its size, either 8k or 16k. This 


230 IFB=65PRINTCHRS13@"8k" ELSE PRINT 
CHRS$130Q" 16k" 
240 size=(B-64) *32 
250 PROCassemble 
260 CALL readrom 
270 PRINT''CHRS134SPC7"CRC value"CHRS 
130^ (?2&71*&10042&70) 
280 PRINT''CHRS134SPC5"Test another В 
OM (Y/N)"; 
290 *FX15,1 
300 REPEAT AS=GETS 
310 UNTILAS="Y"OR AS="y"OR AS="N"OR A 
бата" 
320 IFAS="Y"OR ASz"y" ТНЕМ80 ELSE PRI 
NT: END 
330 END 
340 ON ERROR OFF:MODE7:PRINT'':REPORT 
:PRINT" at line ";ERL:END 
1000 DEFPROCassemble 
1010 ЕОВО%-0ТО25ТЕР2 
1020 Р%-в1Ғ00 
1030 [ОРТО% 
1040 .readrom 
1050 LDA #romnumber% 
1060 STA &FE30 
1070 STA &F4 
1080 LDX #size 
1090 STX &72 
1100 .calccrc 


1110 гру $0 

1120 STY &70 

1130 STY 471 1310 ROL &71 
1140 „сте1 1320 DEX 

1150 LDA &71 1330 BNE crc2 
1160 EOR &8000,Y 1340 INY 

1170 STA 471 1350 CPY 400 
1180 LDX #8 1360 BNE crcl 
1199. „стс2 1370 INC crcl44 
1200 LDA &71 1380 DEC &72: 
1210 ROL A 1390 BNE crcl 
1220 BCC crc3 1400 LDA #&BB 
1230 LDA &71 1410 LDY #&FF 
1240 EOR #8 1420 JSR &FFF4 
1250 STA &71 1430 STX &FE30 
1260 LDA 570 1440 STX &F4 
1270 EOR #&10 1450 RTS 

1280 STA &70 1460 ] 

1290 crc 1470 NEXT 

1300 ВОГ. &70 1480 ENDPROC E 


COLOUR VIDEO 


G.C. Jones 


In BEEBUG Vol.l No.2, we explained how to obtain colour on the composite video 
output, by soldering а 47@pF capacitor in position C58 and joining link 539, On 
later models of BBC micros, this capacitor is supplied, but link 539 is 
un-connected. Mr.G.Jones suggests using conductive paint to short the link if you do 


not feel like soldering in a small space. 


Acorn decided not to connect the capacitor (or link), since the picture quality 


when in colour 
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IE STONEMASON (32K) 


by Brian Knott 


The supplement sent out with the 
November issue of BEEBUG contained a 
Brainteaser competition which asked 
entrants to write a program which would 
convert any given number (in the range 
1-2000) into Roman numerals and then 
list a table of conversions for all the 
numbers in the specified range. Brian 
Knott's program won second prize in 
this competition (see this month's 
supplement for details of the results), 
but the graphics and sound that he 
added Ко the program меге SO 
impressive, that we are printing the 
program in full. The program is very 
well written and displays any necessary 
user instructions on the screen. We 
think you will appreciate running this 


200 VDU4,28,0,4,39,0: REPEAT: COLOURO:C 
: ; OLOUR1 29: INPUT'" ENTER THE NUMBER YOU W 
1 
program. We certainly did! ANT CONVERTED TO ROMAN NUMERALS (1-20 
210 PROCroman (NUM) 
220 VDU24,0;0;1279;896;5 


1000 DEF PROCtitle 

1010 VDU23;8202;0;0;0; 

1020 *FX15,1 

1930 PRINTTAB (3,5) CHRS$134CHR$157CHR$13 
Z2CHRS14I"ROMAN NUMERALS Ш 
СНК51 56TAB (3,6) СНВ51 34CHRS157CHRS1 32СНВ 


= ЕТ 

5 568. 230 PROCshow 

59..L 4% 

du Са 240 VDU4,28,0,4,39,0:COLOURQ:PRINT'" 
65..4 ..LXUI 

ЗЕ! 68221501 Press any key to continue.";:VDU7: Q-GE 
22 ѓа: ВИ T:VDUI9,2,6;0;19,1,;450; 

$: КАРР 250 PROClist:VDU30 

КЕ 822555 

| НЕ: о 

2. Шш 270 : 

і. 92..XCII 

3. 94..XCIU 

5. 96..XCUI 

7. 98..XCUI 

9. вв..С 

Кен 82..C€II 

3. 04. .СІЧ 

Dis 86. .СЏТ 

2. 88. .СџТ 


OOOOXXx«x«Xxrmrmrmermrmrmrm roro 


2 
2 
8 
8 
8 
8 
8 
8 
9 
9 
9 
9 
9 
9 
8 
8 
e 


ptt e 


10 REM Program MASON СТАВ OMAN NUMERALS "CHRS 
20 REM Author B.L.Knott 156 
30 REM Version В1.0 1040 PRINTTAB(1,19)CHRS13Q"This progra 
40 REM ВЕЕВИС March 1984 m will convert any number"TAB(0,12)CHRS 
50 REM Program subject to copyright 130"between | and 2000 to its Roman Num 
60 : eral"TAB(2,14)CHRS13@"equivalent, апа w 
100 ON ERROR СОТО 1990 111 then list all" 
110 MODE7:PROCtitle:MODE! 1050 PRINTTAB (4,16)CHRS13@"Roman Numer 
1 20 VDU23; 8202; 0; 0; 0; als from 1 to 2000." TAB(13,20) CHRS131"B 
130 PROCinit rian L.Knott"TAB(6,23)CHR$134"Press any 
140 PROCtemple key to continue." 
150 VDU5: TIME-0:C-0:c$-1: рыр: рӛ- 1060 A-GET:ENDPROC 

"um. :а4$= "MDCLXVI'" 1070 5 
160 FOR F$-0 ТО 960STEPstep$ 1080 DEF PROCinit 
170 FOR 1%-1 TO 11:ІЕ I$2MOD3-0 4%-3 1090 VDUI9,3,2;0;19,1,6;0; 

ELSEd$-4 ^ 1100 ENVELOPET,0,0,0,0,0,0,0,126,-29,0 
180 PROCwalk (F$-X$ (x£ (I2) ) „УЗ (x2 (I2) ) ,-20,126,0 

) tNEXT, 1110 DIM X$(11) ,Y$ (11) ,x2 (11) 
190 *FX15,1 | 1120 FOR 1%-1 TO 11:КЕАрх%(1%),Х%(1%), 


Ү%(1%):МЕХТ 
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1130 DATA1,32,100,10,128,160,6,160,180 


;9,224,80,4,256,160,11,358,170,2,416,14 
0,5,608,180,3,640,105,9,800,170,7,832,9 
@ 

1140 VDU23,225,24,24,0,60,126,255,255, 
189 

1150 Үр023,226,189,189,60,60,60,36,36, 
102 

1160 VDU23,227,24,24,0,60,60,126,127,2 
53 

117@ VDU23,228,152,60,60,60,60,54,98,6 
7 н 
1180 VDU23,229,24,24,0,60,60,60,60,60 
1190 VDU23,231,24,24,0,60,126,126,126, 
60 

1200 VDU23,232,60,60,60,60,60,36,36,10 
2 

12198 ур023,230,24,60,60,60,60,24,24,28 
1220 VDU23, 255, 255, 255,255,255,255,255 
12557259 Ы 

1230 ENDPROC 

1240 : 

1250 DEF PROCtemple 

1260 VDU24,0;200;1279;1023; : GCOL 0 , 129: 
CLG: VDU24, 0; 8;1279;199;:GCOLG,131:sCLG:V 
DU24, 100; 200; 1169; 219; :GCOL0, 130: СТО 
1270 VDU24,129;220;1149; 239; :CLG: VDU24 
,140; 240; 1129; 259; :CLG: VDU26: GCOLO , 0 
1280 MOVE 0,200:DRAW1280,200:MOVEl100,2 
QU: DRAWIO00,220:DRAW1170,220:DRAWl170,20 
Q:MOVE!I20,220:DRAWl20,240:DRAW1150,240: 
DRAW115@,220:MOVE14@, 240: DRAW140 , 260 : DR 
AW1139,26@: ВАНІ 139,249 

1290 VDU24, 165; 264; 1104; 639; : GCOLG, 130 
:CLG: VDU26 

1300 FOR І%-2 TO 9:X%=165+ (13*19@) :MOV 
EX2$-10,260: DRAWX%, 275: DRAWX3+49,275:DRA 
WX%+55 , 260 : МОУЕХ5 , 275: DRAWXS$ , 600 

1310 FOR J$-1 TO 4:MOVEX2- (J$*10) ,275: 
DRAWXS+ (J$*10) ,600: NEXT 

1320 MOVEX$£,600:DRAWX$-10,640: DRAWX$-45 
0,640: DRAWXS +40, 600 : DRAWXS , 600 

1330 NEXT 

1340 VDU24,145;640;1124; 719; :GCOL0, 1 30 
:CLG: VDU26 

1350 MOVE145,640:DRAW1125,640:DRAW1125 
„720: DRAW145,720:DRAW145,640:VDU24,130; 
720;1139; 734; : GCOLO , 130: CLG: VDU26 

1360 MOVE13@8,72@:DRAW114@, 720: DRAW1 149 
, 135: DRAW1 30,735: DRAW1 30, 728:MOVE1 30,73 
5: DRAW300 , 780: DRAW970 , 780: DRAW1140, 735: 
GCOL0,129:GCOL0,2:FOR Ү%-736 TO 7795ТЕР 
4: PLOT&AD, 500 , YS: NEXT 

1378 ENDPROC 

1389 : 

1390 DEF PROCwalk(a$,b$) 


1400 GCOLAS ,c%:MOVEa% , b% 2 VDU227+C sMOVE 


at ,b%-32: VDU228+C :C= (C+2) MOD4 sMOVEaS+st 
eps ,b%S 3 VDU2274C :MOVEaS+steps,b 
284C 


$—32:VDU2 
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1410 IF Е%-960 ССОҺ0, (d$-1)MOD3:VDU8,2 


26,8,11,225 

1420 ENDPROC 

1430 3: 

1440 DEF PROCroman (N$ 
1450 IF N$»-1090 5%- 

%>-100 5%-3:Т%-100 

z5:T$-10 ELSES$-7:T$-1 
1460 REPEATPROCdo(N% DIV T£) 
1470 N%=N% MOD Т%:5%=5%+2:Т%= 
1480 UNTILS3=9 OR М%-0 

1490 ENDPROC 

1500 : 

1519 DEF PROCdo(n%) 

1520 ТЕ n%=8 ENDPROC 

1530 IF п%-4 OR n%=9 DS=DS+MIDS (45,5% 
,1) +MIDS (d$,S$-14 (n3=9) , 1) : ENDPROC 

1540 IF n%>=5 DS=DS+MIDS(d$,S%-1,1):n 
2-n£-5:1F  n$-0 ENDPROC 

1550 FOR 1%=1 TO n%:DS=DS+MIDS (45,55, 
): NEXT 

1560 ENDPROC 

1570 : 

1580 DEF PROCshow 

1590 c$-22:d$-23:start$-252:step$-32 
1600 ТЕ LEN(DS)MOD2=1 start$-start?-] 
5 

1610 MOVEstart$£,708:GCOL0,0:VDU255,8,1 
0,255 

1620 FOR 1-1 ТО 1400:NEXT:VDU230,8,11, 
229 

1630 FOR I=1 ТО 1400:NEXT:GCOL@, 2: VDU8 
‚8,255,8,10,255 

1640 FOR Т-1 ТО 1400:NEXT 

1650 FOR F$-0 TO 32*((21-LEN (DS) ) DIV2) 
STEPstep£:PROCwalk(start$t324F$,708):FO 
R Н%-1 ТО 1200:NEXT, 

1660 FOR H=] TO 1200: МЕХТ 

1670 GCOL0,2:VDU8,255,8,11,255,8: GCOLO 
;0:2/DU231,8,10,232,8,11 

1680 PROCspell 

1690 GCOL0,2:VDU255,8,10,255,8:GCOL0,0 
:VDU228,8,11,227 

1700 C=@ 

1710 Z%=start% +64+ (32* ( ((21-LEN (DS) ) DI 
V2) +LEN (DS) )) 

1720 FOR С%-7% ТО 956STEPstep$:PROCW 
alk(G2,708):FOR H$-1 TO 1200: МЕХТ, 

1730 GCOLO0,90:VDU11,255,8,10,255 

1740 FOR H$-1 ТО 1290:NEXT:GCOLO,2: VDU 
8;9,255,8,11,255 

1750 FOR H$-1 TO 1400:NEXT:VDU255,8,19 
1295 

1760 ENDPROC 

1770: 

1780 DEF PROCspell 

1798 GCOL0,0:VDU231,8,10,232,8,11] 

1800 FOR G%=9 TO (LEN(DS)-1):FOR H=1 T 
О RND(5)4*18: SOUND&100,1,6,RND(4) +1: SOUN 
D&101,1,255, I NEXT 


000 ELSE IF 


) 
1:1%-1 
ELSEIF  N$»-19 S% 


SDIVIG 
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1810 FOR H=1 TO 2000: МЕХТ 

1820 GCOL0,2:VDU255,8,10,255:GCOLO,0:V 
DU232,8,11,231:PLOT0,—-64,-12: PRINTMIDS ( 
D$,G$*1,1) ;: : PLOTO,0,12 

1830 FOR H=1 TO 1400:МЕХТ, 

1840 ENDPROC 

18508 : 

1860 DEF PROClist 

1870 8$-4:VDU26:COLOUR!:COLOUR!30:CLS 

1880 PRINTTAB(5,6)"ALL THE NUMBERS FRO 
M 1 TO 2000" TAB(10,8) "WILL NOW BE PRINT 
ED"TAB(11,10) "AS ROMAN NUMERALS" 

1890 GCOLØ, 1:МОУЕ1 60, 300: DRAWl100, 300: 
DRAWI 100,544: ОВАИЛ 60, 544: DRAW1 60,300 

1900 PRINTTAB(19,16)"TO STOP THE DISPL 
AY"TAB(13,18) "PRESS ANY КЕҮ"ТАВ(7,20)"Т 
О CONTINUE PRESS ANY KEY" 
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1910 PRINTTAB(4,28)"Press SPACE BAR to 


start display.":Q-GET 

1920 VDU28,0,30,39,1:CLS 

1930 COLOURG 

1948 FOR J%=1 TO 2000:DS="": PRINTJ3;" 
..";:PROCroman(J$):PRINTDS$;:IF РО5<20 
PRINTSPC(20-POS); ELSEPRINT 

1950 IF INKEY(@)<>-1 A=GET 

1960 NEXT: VDUI5 

1978 ENDPROC 

1989 : 

1990 ON ERROR OFF 

2000 MODE 7:1F ERR-17 END 

2010 REPORT:PRINT" at line ";ERL 
2029 END 


Reviewed by Philip Le Grand 


Although the BBC micro is noted for its excellent graphics, as much 


as 20K of user memory can be used 


in supporting the graphics, 


leaving little room for programs and data. Now Computer Consultants 
Ltd. have produced a 20K memory expansion board for the Beeb. Is 


this the answer? 


Product : ARIES-B20 memory board. 

Price : £99.95 (inc. VAT & post) 

Supplier: Cambridge Computer 
Consultants Ltd., FREEPOST, 
Cambridge, CBl 1BR. 


The problem with the BBC micro, is 
that it shares its memory with the 
video circuitry, and by the time the 
operating system, Basic, DFS and any 
other ROM software has taken its own 
workspace from the available RAM, there 
is very little remaining for the user's 
programs. At first glance, there seems 
to be no immediate cure for the 
situation. However, the latest offering 
from Cambridge Computer Consultants 
Ltd. seems to answer the problem. 


The RAM board arrives ready to be 
installed in the cpu socket, the cpu 
(6502 central processing unit) being 
placed in an equivalent socket on the 
ARIES board. An EPROM is also supplied, 
for fitting in a sideways ROM socket 
which automatically selects the extra 
RAM, Ав | soon as the computer is 


switched on, the board becomes active, 
as it does if you perform a hard break, 
displaying the message "BBC computer 
52K", 
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The double-sided pcb of the 
Aries-B20 is very sturdy and its size 
has been kept to a minimum. The ICs are 
evenly distributed around the mounting 
pillar so that there is virtually no 


strain imposed on the cpu socket. 
Although the board is simple to fit, 
you need to be careful about removing 
the cpu from the Beeb, and lining up 
the pins in the vacant socket. Once 
pushed home, the board is very stable. 
The pins on the mounting pillar are of 
the type which will not enlarge the 
holes of the cpu socket, useful if you 
want to use your machine without 
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the board. With the 
installed, it is possible to use one of 
the double density disc controllers 


reviewed in BEEBUG Vol.2 No.8 issue as 
well, but none of the ROM extension 
boards reviewed in BEEBUG Vol.2 No.6. 
The manual supplied with the package is 
very clear with plenty of diagrams 
explaining the installation and use of 
the board in adequate detail. 


The 20K of extra RAM operates in 
parallel with screen memory from  &3000 
to &7FFF enabling much larger programs 
to run, including those which are too 
long to be used with conventional 
disc-based systems. Thus in any screen 
mode, a minimum of 25k of memory (28k 
with a cassette system) is always free 
for programs and data. The system 
automatically switches between the 
screen memory and the new user memory, 
in a way that is completely hidden from 
the user. 


It is possible to turn the ARIES 
board off by issuing the command *XOFF. 
This facility enables you to use EPROM 
software which cannot make use of the 


extra RAM, (e.g. WORDWISE, TOOLKIT), 


though software such as VIEW, BCPL and 
EXMON can take advantage of this extra 
memory. The board can be switched on 


ARIES-B20 


again using *XON. 


The switching between the two RAM 
areas does slow the BBC micro down by 
about 1$, but it is very unlikely to be 
noticed by the user, and only affects 
the screen accesses (e.g. PRINTing and 
PLOTting). The controlling software 
requires a page of workspace, and PAGE 
is automatically set to &F@9 (cassette) 
or &1А@@ (disc). This is obviously а 
very small loss compared to the 20K 
gained. 


Another way of using the extra 
memory is for data storage. Cambridge 
Computer Consultants. have been given 
the exclusive right by Acorn to use 
*FX111 to switch between the two RAM 
areas. This may be used from Basic or 
assembler to store and access two large 
areas of data in parallel. 


The ARIES-B20 board certainly 
provides an attractive solution to the 
lack of sufficient memory on the Beeb. 
The user will need to judge whether he 
(she) is likely to make sufficient use 
of the extra memory to justify the 
cost. On the other hand, it will almost 
certainly be a cheaper way of gaining 
extra memory than with апу 2nd 
processor system. 


Ez 


TURNING OFF ROMS - A.Pemberton 


Any sideways ROM socket can be turned off by software control, to prevent it 
interfering with the running of a particular program. A table at &@2Al - &02B0 


holds information about each ROM socket. 


If no ROM is present, the corresponding 


location holds the value zero. Thus typing ?&2B0-0 will ignore the ROM in socket 15. 
*HELP will show which ROMs are still recognised by the operating system. This can be 
extremely useful when ROMs conflict with each other, as in the case of filenames for 
example. Note also that !&2AD-0 will 'empty' all four sockets. 


LOWER CASE BASIC - A.Armstrong 
If you redefine the two characters 8 and } by running the following program, you 
will find all upper case letters will now be printed in lower case, yet they still 


work as upper case. 


10 MODE4 
20 VDU 23,64,60,60,60,60,60,60,60,,60 
30 VDU 23,125,0,0,255,255,255,255,0,0 
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BACH’S CANTATA NO. 147 
Programmed by Derek Hufton 


The following program provides an 
interesting implementation of the well 
known piece of music "Jesu Joy of Man's 
Desiring" from cantata М№о.147 by 
J.S.Bach. The program itself is very 
short, and will repeatedly cycle 
through the composition using one of 
four envelopes, which 15 selected at 
random each time the music restarts. 
While the music is playing, pressing 
any key will cause the program to 
terminate and the music to stop. 


You will need to take care typing 
the program in if your micro is to 
reproduce this music accurately, but 
the results are, indeed, well worth 
while in this case. 


10 REM Program BACHJ 

20 REM Author D.Hufton 

30 REM Version В1.1 

40 REM BEEBUG March 1984 

50 REM Program subject to copyright 
60 : 

108 MODE 7 

110 ON ERROR GOTO 320 


120 ЕМУЕГОРЕ1,1,1,-1,0,1,1,-1,127,-2, 


-1,-15,90,50 


130 ENVELOPE2,1,0,0,0,0,0,0,60,0,0,—6 


0,90,90 


140 ЕМУЕГОРЕЗ,3,1,-1,1,1,2,1,75,0,0,- 


75,90,90 


150 ЕМУЕГОРЕ4,1,0,0,0,0,0,0,127,-1,-1 


-1,90,0 
160 : 


170 FORA-3TO4:PRINTTAB (6, A)CHRS141;CH 


R$129;CHRS157; ;CHRSISIS"Cantata- No, 147 
"SCHRS156:NEXT 


180 PRINTTAB (2, 12) CHR$133; """Јеси Joy 


of Man's Desiring""" 


190 PRINTTAB (15,6) СНВ51 29; "Бу" 

200 PRINTTAB (12,8) CHR$130; "7, S, BACH" 

210 PRINTTAB (10, 20) CHRS1 3G; "Programme 
d by" 

220 PRINTTAB (10,22) СНВ51 34; "Derek Hu 
fton" 

230 Ур023;11,0;0;0;0 

240 : 

250 RESTORE! 000: X$20: e-RND (4) 

260 REPEAT: IS=INKEY (0) 

270 READC ,n,d:SOUNDc,e,n,d:X2-X9241 

280 IFX%=93e=RND (4):X2-20:RESTORE! 000 

290 UNTILI2»9 

300 END 

310 : 

320 ON ERROR OFF 

330 MODE 7:IF ЕВВ-17 END 

340 REPORT:PRINT" at line ": ERL 

350 END 

360 : 

1000 DATA&101,81,4,&192, 81,12,1,129,4, 
1,137,4,8101, 145, 4, 8102, 129, 12,1,157,4, 
1,149,4 

1010 DATA&101,149,4,&8102,117,12,1, 165, 
4,1,157,4,&101,157,4,&102, 97,12, 1, 177, 4 

‚1 ‚173, 4 

1020 DATA&101,177,4,8102,117,12,1,157, 
4,1,145,4,&101,129,4,8&102,69, 1231 ‚137, 4 

a 145, 4 

1030 DATA&191,149,4,&102,89,12,1, 157,4 

„1,165,4,5101, 157, 4,5102,97,12,1, 149, 4, 
1, 145, 4 

1040 DATA&101,137,4,&102,101,12,1,165, 
4,1,157,4,&101,125,4,&102,89, 12, 1, 129, 4 

PA ‚137, 4 

1050 DATA&191,109,4,&102,77,12,1,125,4 

„1,137,4,5101, 149, 4, 5102, 109, 12,15 115,4 

pig isi 4 

1960 DATA&191,145,4,8102,81,12,1,129,4 

„1,137,4,5101, 145, 2,8102, 11,12, 1157,4 

‚1,149,4 

1070 DATA&101,149,4,&8102,101,12,1,165, 
4,1,157,4,&101, 157,4,&102,97, 12, 1, 177, 4 

ply 173, 4 

1080 DATA&191,177,4,&182,117,12,1,157, 
4,1,145,4,8101 ,129,4,5102,109, 12514137; 
4,1,145,4 

1090 РАТА& 101,117,4,&102, 10191912157; 
4,1,149,4,5101, 145,4,8102,105, by eb. 
4,1,129,4,&101, 109,4,5102,109, 12514129; 
4,1,125,4 

1100 РАТА&101,129,4,5102, 81,24,1,145,4 

АҒАТ РЕ Е 1574541 ,145, 4, 5101, 1 
29, 24,&102,109,24 
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MACHINE CODE GRAPHICS (Part 2) 


by Peter Clease | 


We continue our series on machine code graphics by looking at the 


definitions of multi-coloured characters in Mode 5, which is one of 
the modes used most frequently in commercially produced games. 


MODE 5 

Mode 5 is a popular mode for 
graphics games because it offers a nice 
balance between the amount of memory 
used, and the number of colours 
available. It offers the programmer 
four colours, but uses only 19k of 
memory. 


In Mode 5 each byte of memory is 
used to code four pixels. This is 
because with four colours possible, 
each pixel requires two bits to specify 
the colour of that pixel, and thus with 
8 bits to a byte, each byte can 
represent the colours of four pixels. 
The table below illustrates the 
relation between the logical colours, 
and the two bits allocated to each 
pixel. (A logical colour may be 
redefined to a different physical 
colour by use of the VDU 19 statement.) 


egga eee - Logical Colour 


| 00 Black | 
| | ] | Red | 
| 2 Yellow | 


Table 1. Binary codes for Mode 5 
colours. 


Since a screen character consists of a 
matrix of 8 by 8 pixels, one byte in 
Mode 5 represents half а character 
line, and two bytes a full character 
width line. 


Below is the byte map of the top 


left character block on the screen for 
Mode 5: 
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Figure 1. Screen memory addresses 
for the first character in Mode 5. 


To illustrate how to form а four 
pixel byte to poke into screen memory, 
we will look at a simple example. 
Suppose we want to make the first four 
pixels of the screen black, red, yellow 
and white respectively, to give a 
'striped' appearance. 


Using table 1 above, we can see that 
the four pixel's codes are 00, 01, 10, 
11 respectively for black, red, yellow 
and white. The way that these 8 bits 
are combined to form the correct 
pattern is not quite the way that might 
initially be expected. Figure 2 
illustrates the interleaving process 


that is required. 


Ist pixel 
(Black) 
2nd pixel 
(Red) 

3rd pixel 
(Yellow) 
4th pixel 
(White) 


00110101: (53) 
Final Byte 


Figure 2. Coding of pixel colours 
in Mode 5. 
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The basic method of interleaving the 
bits for each pixel to form the 
required byte for Mode 5 (and for the 
other graphical modes) is as follows: 


Take the first (or highest) bit of 
each pixel, and arrange these from left 
to right at the start of the byte. If 
the mode is опе which uses more than 
one bit per pixel, then repeat the 
process for each bit in turn, working 
from left to right. 


Although this may seem strange at 
first, it is really quite logical, and 
once understood, it is usually easy to 
follow through the process of 
interleaving bits when designing 
characters. If it helps, until you have 
acquired the knack of building up a 
byte easily, it may be quickest to use 
the method illustrated in figures 2 and 
4, 


We will now take the interleaving 
technique further, and produce a four 
coloured picture of a man and place it 
at the top of the screen. Figure 3 
shows the man that we are going to 
build (the letters indicate the colours 
of each pixel, and the | numbers 
alongside аке the coded values to be 
calculated, ready for poking to the 
Screen). 


| Byte | 


„оо oo RE С... 5. White 


Figure 3. Designing апа coding а 
four colour character in Mode 5, 


Having designed the man, we need to 
convert each set of four horizontal 
pixels into one byte's-worth of data to 
insert into screen memory. This is done 
in the same way that we converted the 
earlier example. 
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The first byte representing the man 


will contain two black pixels followed 
by two red pixels. Figure 4 illustrates 
these four pixels being arranged into a 
Single byte: 


Ist pixel 
(Black) 
2nd pixel 
(Black) 
3rd pixel 
(Red) 

4th pixel 
(Red) 


00000011-(3) 
= Final Byte 


Figure 4. Coding the first 
byte of the 'man' character. 


The remaining fifteen bytes have been 
coded for you, but it would be a good 
exercise to code these yourself, and 
then to check them against the correct 
data in figure 3. 


Now that we have produced the data 
for poking to the screen, we need a 
machine code program that will actually 
do this for us. Program 5, listed 
below, will accomplish this. Type it 
in, and try it. The DATA statements at 
lines 170 and 180 are the parts of the 
program that actually determines the 
shape and colour of the character 
displayed on the screen. Thus, just 
changing these lines to a different set 
of 16 bytes will give a different 
shape. 


1@ REM PROGRAM 5 
20 REM VERSION В1.1 
30 REM AUTHOR PETER CLEASE 
40 REM BEEBUG MARCH 1984 
50 REM PROGRAM SUBJECT TO COPYRIGHT. 
60 : 

120 PROCassemble 

110 FOR I-0 TO 15 

120 READ I?data 

130 NEXT 

140 DELAY-INKEY 200 

150 MODE 5 

160 VDU 23;11,0;0;0;0 

178 CALL CODE 

180 PRINT''' 

190 END 

200 : 


210 DATA 3,3,17,120,16,48,96,204 
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220 DATA 12,12,136,225,128,192,96,51 
230 : | | 
1000 DEF PROCassemble 

1010 DIM CODE 100 

1020 DIM data 15 

1030 FOR PASS =@ TO 3 STEP 3 

1040 P%=COD 

1050 [ | 

1060 ОРТ PASS 

1070 LDY #@ 

1080 .loop 

1090 LDA data,Y 

1100 STA &5800,Y 

1118 INY 

1120 CPY #16 

1130 BNE loop 

1140 RTS 

1150 | 

1160 МЕХТ 

1170 ENDPROC 


Program 5 is very similar to the опе 
last month that plotted the 
space-invader in Mode 4. This time 
sixteen, instead of eight, numbers must 
be stored in screen memory to produce 
the character, because twice as many 
bits are needed per pixel. 


It is a fairly simple matter to 
design your own characters by working 
out the byte values to be poked, using 
the method given above. Remember that 
program 5 works its way down each 
column and so the data must be in that 
order. ТЕ you have decided to work out 
your own data, replace the data at 
lines 210 and 220, апа then run the 
program. Programs, such as SPRITES from 
BEEBUGSOFT, are also available which 
will allow you to design your own 
characters more easily and which also 
includes routines to display and move 
characters on the screen. By way of 
example, here are some further sets of 
data that you can try at lines 210 and 
220 in place of the original 'man'. 


Space Invader. 
210 DATA 12,2,7,45,7,3,6,12 
220 DATA 3,4,14,75,14,12,6,3 


Strange Fruit. 
210 DATA 16,0,18,7,15,15,15,6 
220 DATA 32,112,132,14,111,111,15,6 


Once you can define single 
characters, you can build up larger 
shapes on the screen by combining 
several characters together. As an 
example, 
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consisting of a block of 4 characters, 
which will thus be a matrix of 16 by 16 
pixels. As a result, there will be a 
total of 64 bytes to be coded and 
placed in appropriate Data statements. 
The task is virtually the same as 
before, but obviously rather more 
lengthy to carry out. The following 
program (Program 6) is similar to 
Program 5, but places a four character 
shape on the screen. Again, there are 
two procedures, PROCassemble, to 
assemble the machine code, and 
PROCdraw, to place the shape on the 
screen. Тһе data іп our program will 
produce a figure that is similar to a 
space invader, but you should be able 
to design your own shapes as well. The 
main program section also includes a 
loop which will display this colourful 
shape іп а series of different 
positions on the screen. 


1@ REM PROGRAM 6 
20 REM VERSION В1.1 
30 REM BEEBUG MARCH 1984 
40 REM AUTHOR DAVID FELL 
50 REM PROGRAM SUBJECT TO COPYRIGHT. 
60 : 
100 PROCassemble 
110 FOR I=@ TO 63 
120 READ data?I 
130 NEXT 
140 DELAY-INKEY 150 
150 MODE 5 
160 FOR I-&5800 TO &7C00 STEP 1280 
170 PROCdraw(I)s:PROCdraw(I-480) 
180 PROCdraw(I-4160):PROCdraw(I-*240) 
190 NEXT 
200 PRINTTAB (0,31); 
210 END 
220 : 
230 DATA 14,11,9,1,3,7,15,3 
240 DATA 0,1,11,15,207,139,15,15 
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250 DATA 0,8,13,15,63,46,15,15 
260 DATA 7,13,9,8,12,14,15,12 
270 DATA 15,120,60,7,3,8,15,15 
280 DATA 13,13,135,240,15,15,12,12 
290 DATA 11,11,30,240,15,15,3,3 
300 DATA 15,225,195,14,12,1,15,15 
310 4 

1000 DEF PROCassemble 

1010 DIM CODE 200 

1020 DIM data 63 

1030 FOR PASS- 0 TO 3 STEP 3 
1040 P$-CODE 

1050 | 

1060 OPT PASS 

1070 гру #0 

1080 .loopl 

1090 LDA data,Y 

1100 STA (580) ,Y 

1119 INY 

1120 CPY #32 

1138 BNE loop! 

1140 CLC 

1150 LDA 880 

1160 ADC #&2G 

1170 STA 680 

1180 LDA 681 

1198 ADC #1 

1200 STA &81 

1210 .loop2 

1220 LDA data,Y 

1230 STA (&80),Y 

1240 INY 

1250 СРУ #64 

1260 BNE 100р2 

127@ RTS 

1280 1 

1290 NEXT 

1300 ENDPROC 

1310: 

1320 DEF PROCdraw(P£) 

1330 !580-РФ 

1340 CALL CODE 

1350 ENDPROC 


Note that the two programs that 
accompany this montn's article store 
their machine code in areas of memory 
allocated from Basic via the DIM 
Statement. This is the normal method of 
designating an area of memory in which 
to store large pieces of machine code 
when generated from Basic. The data for 
the characters is also stored in an 
area DIMmed from Basic for ease. The 
amount of memory required for the 
character data is known precisely at 
the time of program entry, so only that 
amount of memory is requested. With the 
machine code section, however, it is 
not practical to quickly calculate how 
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many bytes of memory will be required, 
and so a figure that is generous is 
used. Note also the use of the RFAD 
statement. This is a little known and 
flexible way of reading data directly 
into memory. 


Users of Basic II may be interested 
to know of a new group of commands that 
allow data to be stored in memory more 
easily than the method used here, 
especially when developing machine code 
programs. These are EQUB,  EQUW,  EQUD, 
and  EQUS (see also BEEBUG Vol.2 No.4). 
The command of particular interest 15 
EQUB, as this takes a list of single 
byte values, much as VDU normally does, 
and inserts them into memory at the 
current  'program counter', This allows 
both the data and machine code to be 
allocated memory | together. It is 
recomended that the data resides after 
the machine code. 


That is all we have space for this 
month. In the next article we will look 
at how to cope with the choice of 16 
colours available in Mode 2, and the 
other graphics modes. e 
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OWN FUNCTION KEY LABELS (16K) 


by Tim Powys-Lybbe 


The ten user-defined function keys are опе of the most useful 


features of the BBC micro. The short program that we describe here 
enables you to print your own function key labels on an Epson or 


similar printer. 


This program uses the facilities on 
the Epson to print function key labels 
using condensed and emphasized (darker) 
characters. The program should also 
work with the Shinwa CP8@ printer, and 
any other printer which is compatible 
with the Epson. It should be possible 
to adapt the program to work with many 
other dot matrix printers. The program 
as listed will print the key labels for 
the extended version of ASTAAD and the 
labels for Colin Lindsay's keyset 
program (both in this issue). Now those 
readers with an Epson printer needn't 
cut up their copies of BEEBUG for the 
titles. 


The program prints nine lines of 
text. You can put whatever you want in 
those nine- lines by means of the Data 
Statements in lines 4000 onwards. Each 
Data line corresponds to a line of 
print and must consist of 11 data 
items, or else the titles will be 
printed wrongly. Each line has an 
initial title of up to 7 characters, 
which can be used to label the keystrip 
as a whole, followed by the 10 keys 
making 11 items in all. 


The titles may be any length you 
want, but will be printed alternately 
12 and 13 characters in length. Titles 
shorter than 12 characters will be 
centralised above their key, so for 
clarity you will get better results 
with short descriptions on multiple 
lines rather than long titles on a 
Single line. Note that you do not need 
quotation marks around your titles in 
the Data statements, while completely 
blank sections require nothing at all 
between the commas as in lines 4050 and 
4060. 


The rows of numbers in the 
‘Initialise’ procedure send control 
codes to the printer for narrow, 


enhanced printing and to make the lines 
closer together. 


The numbers in the 
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'Reset' procedure reset the printer 
back to normal. If you have a different 
type of printer you may well be able to 
change these values so that the program 
will work for your own printer. If you 
do get the printer tied up іп knots 
then either turn it off and on again or 
type (for an Epson): 

VDU 2,1,27,1,64,3 
which will reset the printer. 


It is possible to have more than 9 
lines of print, though only 9 will fit 
under the perspex strip. To print more, 
alter line 2010 to: 

FOR 2-0 TO lines: FOR I-0 to 10 
where the value 'lines' is the number 
you want. Then add in the additional 
data statements after line 4080. 


The lines printed are 132 characters 
long, which forces a carriage return 
and line feed on the Epson printer. 
This is why it is vital to include the 
semi-colon in line 2080, to prevent 
another line feed from the micro. 


10 REM Program FNKEY 

20 REM Version Bl.1 

30 REM Author T.F.Powys-Lybbe 

40 REM BEEBUG March 1984 

50 REM Program subject to Copyright 


70 MODE7 
80 ON ERROR GOTO 1000 
90 PROCInitialise 
100 PROCTitles 
110 PROCReset 
120 END 
1302 
148 ON ERROR OFF:MODE 7:REPORT:PRINT" 
at line ";ERL:END 
150 3 
1000 DEF PROCInitialise 
1010 VDU2:CS=STRINGS (7,CHRS32) 
1020 PRINT"Put this guide under the pe 
rspex screen above the function keys." 
1030 VDUI3, 13, 03,13, 1,27, 1,514 1424, 1,1 
УОЛТ! 
1040 ENDPROC 
1050 
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2000 DEF PROCTitles 3020 ENDPROC 


2010 FOR 2-0 TO 8:FOR І-0 TO 10 3030 : 
2020 READ AS 4000 DATA,SCREEN, SCREEN, SCREEN, SOFT CH 
2030 IF I=@ BS-LEFTS(AS4CS,7):GOTO 208 ARS, INFILL,DUMMY,REVERSE,,, 
@ 4010 DATA, SAVE, LOAD, DUMP, ON/OFF , ON/OFF 
2040 IF I/2-INT(I/2) AS=LEFTS(AS,13) E ; ROUTINE,COLOURS,,, 
LSE AS=LEFTS (AS$,12) 4020 ОАТААЅТААр+,,,,,,,,,, 
2050 AS=STRINGS (6-INT (LEN (AS) /2) , CHRS$3 4030 DATA,ASTAAD,DRAW,DRAW,REPEAT,MOVE 
2)+AS+CS ` , DRAW, LINE, DELETE, DELETE , DRAW 
2060 IF I/2=INT(I/2) AS=LEFTS(AS,13) E 4040 DATA,TEXT,ARROW,POLYGON, POLYGON, , 
LSE AS=LEFTS (AS,12) ,, LINE, AREA,CIRCLE 
2070 BS=BS+AS3 4050 DATA,,,,, ppp 
2080 NEXT I:PRINTBS; 4060 БАТА,,,,,;;;;,, 
2090 NEXT J 4070 DATAREDKEY,CLEAR TEXT,FREE,ERROR, 
2100 ENDPROC CAT,CHAIN"", INSPECT, PAGED, PRINTER, PRINT 
2119 : | ER,BIN TO HEX 
3000 DEF PROCReset 4080 DATA,BLUE RUN,MEMORY,LINE, , ,„МЕМОВ 
3012 VDU1,18,1,27,1,72,1,27,1,50,13,13 Y,LIST,ON,OFF,DEC TO HEX 


‚13,13,13,13,3 


DISC LOCATION - K.Simpson 
After accessing a disc, either read or write, location &F@5 DIV 8 contains the 
number of files on the disc. 


.4..-.-ш 476707470: ө 4/0/09 0 0 9 O е € P а 9 € 0 € е O B ее O а е оо 6 € 4 0 0 4 е 6 O оо оа € € 9 6 9 9 0 04 9 6 99 9 9 0 9 0€ до 9 6 6 9 оо а а 4 9 9 6 а. а 9 9. 0 6.6.9 
Oe oo ooo воо во оноо е ^ е оо е G 6 е е е ао € е оо 6 оо е 9 оа оо B M 6 е 4 O 9 а 9 е е O 0 9 е O € е 9 о € 9 оо 9 € O 9 6 0 0 6 6 

ee € M ол 9 € 9 0 6 9 MO d B e U 9 O € 9 9 е 9 9 € 6 е € е 9 оо е е EHEC GO O а а 9 OHO a е GO 9 O € € е ооо O е 0 6 0 9 е о е € 9 9 e c 
вродено 0 6 oo 8 , 9, 7, ,9,9 9 0 e e е e оо 6 9 à 9 € 0 9 6 0 е O € à € 9 9 € 6 е P 9 d а 9 а O € 9 € e € 6 9 9 овое ое € е e 9 8 O 6 € 

чено, 6 oo O ое е обого оо ела еле а оо е a е ото оо ето е оо оо овес о е оо ое е оо ое ое е оо оо оо оле оо а ете 
Te 09 €» ө ө оо з э оо ө ө ө ө ө ө ө à € € 9 оо ө э 9 «е 0.0 ө ө о ө b ө 9 э Фе о ө € à € € е е ө 0 ө Sees э à € о ө ө ө 


INCREMENTING COUNTERS - R.Rottier 

In BEEBUG Vol.2 No.7, we included a hint about COUNT errors. However, the 

accompanying machine code program, as pointed out by R.Rottier, could be replaced by 

the following single command: 
INC &lE 


*COMMANDS ~ A.Pemberton 
When using the structure IF...THEN *<command>, the THEN is not optional. 


WHICH PAGE? - J.Brayshaw 
When іп terminal mode, using the Teletext adapter, pressing the Copy key shows 


which page is currently being displayed. 


OUT-DENTING IN WORDWISE - S.J.Wilkinson 
The text indenting command in WORDWISE (TI) can accept negative values, giving a 
piece of text jutting out from the main body of text. 


SPECIAL SYMBOLS FROM WORDWISE - R.W.Lyne & M.A.Batey 
Here are a couple of helpful symbols you can print out in your documents on an 
EPSON FX type printer. This method sets up a user defined character in each case. 
The first comes from Mr.R.W.Lyne, for а ‘cut here' scissors symbol, use the 
following codes: 
0С27,75,8,0,198,170,108,40,16,40,68,130. ® их XO кик ки ысы K K HE 
The second symbol is a telephone, from Mr.M.A.Batey, using the following codes: 
0C27,75,9,0,112,243,231,255,255,255,231,243,112 ET 


949 ,*,*,* ы eco 8 8 0 8 e7a-07070-0-9-07o-07a-070707070707070707670707072727076707074 070797079 079 «7 «7076707679 67«70 6747070 07070767970 "o" e" e" t" oe" e" e" o" e" тт“ 
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MULTIPLE DISC CATALOGUES 
by C. C. Chan 


We present an extremely useful disc utility that enables you to 


double, or even quadruple, the number of files that can be stored on 
a disc using the Acorn DFS. This utility, which can be adapted to 
both 40 and 80 track units, is simple to use, and will allow much 
more efficient use of your disc storage. 


One of the main snags with the Acorn 
DFS, as those using it quickly find 
out, is the 31 files limit on the disc 
catalogue. This often means that 
programs and data have to be moved onto 
another disc and copied back and forth 
all the time. This can be especially 
frustrating if you are trying to keep 
track of a series of documents, 
different generations of data files, 
programs, etc. Worst of all, there is a 
severe wastage of disc space. For an 89 
track disc, most of the files would 
have to be at least 6K in size to be 
space-efficient. Many files will fall 
below this size, and most 80 track 
discs rarely get much above half-full. 
Similar problems are also likely to 
arise with 100k discs, though less disc 
storage will be wasted. 


One way around this problem is to 
create another catalogue on each disc, 
thereby immediately enabling each disc 
to hold up to 61 files (one file is 
required for system purposes). This is 
done by modifying the existing 
catalogue to point to only half of the 
disc, and then creating another 
catalogue for the other half. This 
second catalogue is tucked away 
securely at the end of the disc, 
inaccessible іп normal disc usage, 
except by addressing the relevant 
sectors directly. The files and areas 
held by the first catalogue will Бе 
included in the second catalogue as a 
system file called ‘'*.%sysf1%' which 
cannot be deleted by the ‘'*DELETE' 
command. As both catalogues are in the 
normal DFS format, all the DFS commands 
can still be used, regardless of which 
catalogue is currently active. 


Two programs are needed, one to set 
up and initialise the dual catalogues 
(CAT2), and one to Swap between 
catalogues (SWAP2). The program CAT2 is 
used just once to create the second 
catalogue on disc, 
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which drive (0, 1, 2 or 3) is to be 
used. In general, you should do this on 
a blank disc, although it is possible 
to create a dual catalogue on a disc 
already in use, provided it is not more 
than half full. Check carefully before 
running CAT2 and make certain that a 
*COMPACT is done just before the run. 
The program CAT2 can be saved on any 
convenient disc, for use when required. 


After creating the second catalogue, 
which divides the disc into two parts, 
you can switch between the two 
sections, by running the SWAP2 program. 
For convenience, you could save a сору 
of this program in each catalogue that 
is to be swapped, though this isn't 
essential. The program will ask for the 
number of the drive on which the two 
catalogues are to be swapped, and after 
swapping over the two catalogues, the 
files іп the пем catalogue are 
compacted to update and tidy up the DFS 
buffers held in memory. It may be 
useful to define a function key to swap 
over catalogues, for example: 

*КЕҮФСН. "ЅИАР2" |М1 |M 
This sets up function key #0 to swap 
catalogues. 


The programs listed here are 
intended for use with а 4@-track disc 
unit, and some minor but very important 
changes will be necessary if they are 
to be used with 80-track units. These 
changes are listed at the end of this 
article. 


PROGRAM NOTES 
A quick word about how the programs 
work. As you will see from the 
listings, they hinge around the 
procedure 'sectoraccess'. The purpose 
of this procedure is to read or write a 
specified disc sector to or from a 
specified memory address. An error 
check is incorporated to ensure that 
any disc errors are brought to the 
h might like 
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to use this procedure in other disc 
programs of your own. 


The '"'sectoraccess' procedure takes 
10 bytes from address 5ССО onwards as 
the parameter block for a call to 
OSWORD with A set to &7F (this call is 
handled by the DFS sideways ROM). The 
initialiser program (CAT2) reads in the 
original catalogue, modifies it to 
point to only half the disc, and then 
writes it back to its original location 
on the disc. It then modifies the copy 
of the disc catalogue in memory to skip 
past the file areas used by the first 
catalogue, reduces the total number of 
disc sectors available by 2 to 
safeguard 2 sectors at the middle of 
the disc, and then writes the second 
catalogue to the last 2 sectors of the 
disc. 


EXTENDED USE 

Experienced users may be interested 
to note that the procedure 
'sectoraccess' has | several other 
possible uses. For example, you may 
'mark' a disc with certain passwords 
and attributes in particular sectors 
which other programs can then check 
each time they run. This would make it 
more difficult to copy programs to 
other discs and making it virtually 
impossible to dump a program onto tape, 
thereby adding some measure of software 
protection. ТЕ may also be used to 
interrogate specific sectors on disc 
and dump the catalogues for viewing or 
for security purposes, etc. 


By modifying the initialiser 
program, it is also possible to create 
catalogues of unequal sizes on a disc, 
if you wish to keep all the large files 
in one catalogue and the smaller ones 
in the other. 


These split catalogues have been in 
use for some time now and no problems 
have been experienced whatsoever. While 
it is not a comparable alternative to 
getting another disc drive, it does 
provide a true upgrade option for users 
frustrated by the limited number of 
files allowed by the Acorn DFS. One of 
the main points you should bear in mind 
however, is that each catalogue is 
effectively the whole disc when you use 
the '*BACKUP' DFS command. Therefore, 
you will need to do two backups for 


SACR disc with a split catalogue, one 


for each catalogue. 


It is in fact possible to create as 
many extra catalogues as required on a 
disc; the initialiser can be modified 
to create more catalogues at the end of 
disc storage space, and the swapper 
modified to select whichever catalogue 
is required. Two | programs that 
initialise and swap 4 catalogues on an 
80 track disc are included оп this 
month's magazine cassette. Note that 
the | 4-catalogue swapper requires a 
Spare byte held in the 2nd header 
sector which means that you must NOT 
re-title the disc after creating the 4 
catalogues. This problem does not arise 
when using the 2 catalogue swap 


progran, 


18 REM PROGRAM CAT2 (40 TRACK) 
20 REM VERSION B1.2 
30 REM BEEBUG MARCH 1984 
40 REM AUTHOR C.C. CHAN 
50 REM PROGRAM SUBJECT TO COPYRIGHT. 
60 : 
100 ON ERROR GOTO 2000 
110 QG$-10:MODE7 
120 PRINTCHRS131;"Dual Catalogue Disc 
Utility." 
130 PRINTCHRS$131;STRINGS (28, "=") 
140 РВТМТ"СНВ51 3040 track version." 
150 DIM buffer$ 512 
160 PRINT'CHRS$134;:INPUT"Create dual 
catalogues on drive? "drive? 
170 PROCsectoraccess (drive$,0,0,buffe 
r$,"read") 
180 PROCsectoraccess (drive$,0,l,buffe 
r3+256,"read") 
190 Ws=? (buffer%+262) AND&FO: ? (buffers 
+262) =WS: ? (buf fer%+263) =&C8 
200 PROCsectoraccess (drive$,0,l,buffe 
r$t256,"write") 
210 W$-?(buffer$-262)AND&F0:? (buffers 
+262) =WS OR 1:7? (buffer%+263) =&8E 
220 S(bufferSt+8) ="Ssysf13"s? (bufferS+ 
15) =&2A: ? (bufferS+271 ) =2:? (buffer3+279) 
-0:? (bufferS+268) =&6РЕ:? (ouffer%+269) =&C 
53? (bufferS+261) =8 
230 PROCsectoraccess (drive%,79,8,buff 
er$,"write") 
240 PROCsectoraccess (drive$,79,9,buff 
er$4256,"write") 
250 PRINT'CHR$133;"Dual Catalogues Cr 
cated О.К." '"'CHR9131; 
260 S&AGB="COM. "+STRS (drive2):X2-0:Y$ 
-&A:CALL&FFF7 
270 END 
280 : 
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1000 DEFPROCsectoraccess (unit$,track$£, 


Sector ,address$£,action$) 

1010 LOCALresult$ 

1020 ?&CCO-unit2:?&CC5-23:?&CC9-8&21 

1030 !&CCl=address$%: ?&CC7=track$:?&CC8 
=sector% 

1040 IFactionS="wr ite" THEN?&CC6=&4B : EL 
SE?&CC6=&53 

1050 X$=&CO: YS=&C 23 AS=&7F 3 resul t3=USR (4 
FEF 1) 

1060 IF?&CCA THENPRINTCHRS130;"»» Fail 
ed:sectoraccess;code="3~?&CCA;",results 
="eresult3:STOP 

1070 ENDPROC 

1080 : 

2000 ON ERROR OFF:MODE 7 

2010 IF ERR<>17 REPORT: PRINTERL 

2020 END 


10 REM PROGRAM SWAP2 (40 TRACK) 
20 REM VERSION В1.2 
30 REM BEEBUG MARCH 1984 
40 REM AUTHOR С.С. CHAN 
59 REM PROGRAM SUBJECT TO COPYRIGHT. 
60 : 
100 ON ERROR GOTO 2000 
118 MODE7:@3=1@ 
120 DIM area% 512, buffers 512 
130 number3=39 
140 PRINTCHRS131"Dual Catalogue Swap 
Utility." 
150 PRINTCHRS131;STRINGS$ (28, "z") 
160 PRINT'CHR$130;number2-1;" track v 
ersion." 
170 PRINT'CHRS134;: INPUT"Swap catalog 
ues on drive? "drive$ 
180 PROCsectoraccess (drive2$,0,0,area$ 
," read") 
190 PROCsectoraccess (drive£,0,1l,area$ 
+256,"read") 
200 PROCsectoraccess (drive% ,number$, 8 
;buffer$,"read") 
210 PROCsectoraccess (drive? ,number$,9 
pouffer%+256,"read") 
220 PROCsectoraccess (drive% ,number$ , 8 
pareas,"write") 
230 PROCsectoraccess (drives ,number$ , 9 
;area$4256,"write") 
240 PROCsectoraccess (drive$,0,0,buffe 
r$,"write") 
250 PROCsectoraccess (drive2,0,l,buffe 
15256 ,"ика се") | 
260 PRINT'CHRS133;"Catalogues swapped 
O.K,"' 'CHRS13@; 
270 S&AGB="COM. "+STRSdrives: X3=G2 YS=& 
A:CALL&FFF7 
280 END 
290 : 
1000 DEFPROCsectoraccess (unit$,track$, 
sector%,address%,actions) 
1010 LOCALresult$ 
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1020 ?&CCO-zunit$:?&CC5-23:?&CC9-&21 

1030 !&CClzaddress2:?&CC7-track$:?&CC8 
-sector$ 

1040 IFactionS="wr ite"THEN?&CC6=&4B : EL 
SE? &CC6=&53 

1050 X$-&CO0:YS$-&C:A$-&7F:result$-USR(& 
FFF1) 

1060 IF?&CCA THENPRINTCHRS130;">> Fail 
ed:sectoraccess;codez"; ?&CCA;",results 
z"syesult$:STOP 

1070 ENDPROC 

1080 : 

2000 ON ERROR OFF:MODE 7 

2010 IF ERR<>17 REPORT:PRINTERL 

2020 END 
MODIFICATIONS FOR AN 80 TRACK UNIT 

The following changes are required 
to convert the listed utilities to work 
on an 80-track unit. 


SWAP2 

Change the 39 at line 130 to а 79. 
This is the number of tracks that SWAP2 
recognises. 


CAT2 

Change all the PROCsectoraccess 
calls with the second parameter of 39 
to 79, 


Line 190 determines the number of 
sectors to be managed by the catalogue. 
Change the whole line to read: 


190 w$-?(buffer$4262)ANDS&EQ:? (buffer$*2 
62)-W$ OR 1:2? (buffer$*263)-&90 


Line 210 specifies the total space to 
be held on the new catalogue. Change it 
to read: 


210 W%=? (buffer%+262) AND&F@: ? (buffer$-t2 
62) =W3 OR 3:?(buffer24263)-&lE 


Line 220 of the initialiser assigns 
the area to be covered by '*.$sysfl$' 
which should be enough to cover all the 
file areas of the first catalogue. 
Change it to read: 


220 S(bufferS+8) ="Ssysf13":? (buffers+15 
) &2A: ? (bufferS+271) =2:? (bufferS+27G) =& 
10:? (buf ferS+268) =&FF:? (buffers+269) =&8 
р:? (bufferS+261 ) =8 


OF INTEREST 

There are several errors in the disc 
manual:  OSFIND (&FFCE) returns the 
channel in A, not Y; the format of the 
2nd sector of the disc catalogue is 
incorrect and has the middle order and 
low order bits of the file's load 
address, exec address and length 
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А comparative review by John Yale 


In last month's issue of BEEBUG, John Yale gave a short introduction 
to the computer language FORTH. 


This month, John provides a 


comparative review of the three implementations of FORTH now readily 


available for the BBC micro. 


FORTH is а comparatively new 
computer language that has rapidly 
achieved a cult following among many 
programming enthusiasts. It differs 
from languages like Basic in that 
writing FORTH programs involves 
extending the language itself to meet 
the application, rather than using the 
language as provided to describe a 
solution (as happens with Basic). A 
measure of the interest in FORTH is the 
availability of at least one popular 
micro that offers FORTH as its standard 
language. Versions of FORTH are also 
available for many other micros and 
there are now three implementations of 
FORTH available for the BBC micro. 


Acornsoft FORTH апа r q FORTH 
(supplied by Level 9 Computing) are 
cassette or disc FORTHs based on the 
Fig (FORTH Interest Group) FORTH model 
modified to meet the FORTH-79 standard. 


 JWB FORTH supplied by HCCS 
Associates differs from the other two 
in that it is supplied in an 8k byte 
EPROM for fitting in the computer. JWB 
FORTH is based on the Fig FORTH model 
but without the FORTH-79 modifications. 
HCCS explain that as the majority of 
applications are supplied by Fig this 
should make things easier for new 
users. However, this will only be the 
case if you already have a quantity of 
Fig software, as priority is now given 
to publishing FORTH-79 programs. 


Full details of prices, suppliers 
- and recommended books are given at the 
end of this review. 


EDITOR 

FORTH source code is normally stored 
in lk byte blocks or screens. Acornsoft 
FORTH and JWB FORTH both provide the 
standard Fig line and string editor for 
editing these screens. Although this is 
a powerful editor when mastered, it is 
difficult for the beginner to use. Use 
of the cursor and Copy keys does 
however allow editing in a similar 
manner to Basic 


Acornsoft FORTH allows two screens 
in memory at опе time and JWB FORTH 
allows one. As each screen is typed in, 
compiled and tested it must be saved to 
tape before the next screen can be 
entered. This does cause problems when 
а screen in the middle of ап 
application needs changing. 


In contrast rq FORTH adopts a 
different approach to block storage and 
editing. Firstly a selectable number of 
blocks is kept in memory for instant 
recall at any time, saving to tape only 
being required at the end of a session 
(or more frequently for security). The 
only disadvantage to this scheme is 
that it uses a large amount of memory 
which might Бе required for graphics. 
However, as the number of blocks stored 
is configurable, the user may reduce 
this to say two blocks and revert to 
the scheme used by the other systems 
under review. Secondly r q FORTH uses a 
screen size of 512 bytes organised as 
16 lines of 32 characters instead of 64 
characters as used by the other 
systems. This allows a complete screen 
to fit onto a Mode 7 display but 
unfortunately it does not comply with 
the FORTH-79 standard which requires 
1024 byte blocks. Editing is performed 
by moving the cursor to the required 
place on the screen and typing away. A 
set of control keys is also provided to 
delete text or move it around the 
screen via a holding buffer. This 
editor is much easier to use than the 
Fig one, and will be found to be more 
powerful than the Basic editor supplied 
as part of the BBC computer. 


BENCHMARKS. 

The December 1982 issue of Personal 
Computer World has a set of Benchmarks 
for FORTH implementations. In general 
JWB FORTH is slightly slower іп 
execution, though the differences 
between the three systems are not 


significant. 


CASSETTE SYSTEM 
All three systems can save blocks on 
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cassette. As mentioned above, Acornsoft 


FORTH allows two screens in memory at 
one time and JWB FORTH allows only one. 
Thus as each screen is entered and 
debugged, it must be saved to tape 
using the built in block save facility. 
са FORTH uses the standard MOS *SAVE 
command (accessed from within FORTH) to 
save all the block buffers in опе 
cassette file. In practice this system 
is much easier to use. 


DISC SYSTEM 

When FORTH is used with discs all 
the screens are kept on the disc, only 
being brought into memory as required 
for editing or compiling. This system 
which is known as 'virtual memory' is 
transparent to the user, it seeming as 
if all the blocks are continuously 
available (except for the disc activity 
as blocks are swapped in and out). 


Acornsoft disc FORTH is supplied on 
a protected disc, but this has little 
effect and it is possible to produce a 
backup copy of your FORTH system as it 
is easily transferred from memory to a 
new disc by *SAVEing from PAGE to HERE 
(this also works with the cassette 
version). I found the disc access time 
of 3 - 4.5 seconds per block rather 
long but this does depend on the DFS in 
use. Blocks are stored nine to a file 
which allows 9% blocks on a 19@@k disc. 


А disc version of rq FORTH is 
supplied on the back of the cassette. 
Block reading and writing is much 
faster than with Acornsoft FORTH as the 
disc filing system is not used. Instead 
sectors are accessed directly via 
OSWORD calls, giving block read times 
in the range 0.7 to 1.6 seconds. 


The МВ FORTH EPROM will also work 
with the BBC disc filing system but as 
each block is stored as a separate file 
this means a maximum of 31 blocks on а 
disc due to the DFS file limit. Thus 
two thirds of the disc is wasted. This 
system also does not support the 
important FORTH word BLOCK. 

ROM SYSTEM 

JWB FORTH is the only one of the 
three packages currently being supplied 
as a ROM system (actually in EPROM). 
Fitting instructions are supplied with 
the EPROM which is selected by *FORTH. 

Acornsoft  FORTH should be available 
in ROM later this year. 

Level 9 Computing have no plans at 
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DOCUMENTATION 

Acornsoft FORTH is not supplied with 
any documentation and requires separate 
purchase of the book 'FORTH on the BBC 
Microcomputer'. This iS suitable for 
beginners and advanced users alike and 
is highly recommended. 


r q FORTH is supplied with a 72 page 
AS manual containing а complete 
glossary of all the words in the 
system, configuration details, source 
code of the editor etc. This manual 
contains all the information the 
experienced  FORTH user requires to use 
the system, but it is not a good 
introduction for the beginner. Also 
supplied by Level 9 is an A4 summary 
card giving brief details of all the 
words in the system, configuration, 
editing, saving etc. 


JWB FORTH is supplied with a 37 page 
A4 manual containing а glossary, 
sections on Graphics and Sound, System 
description and some demonstration 
programs. The review copy glossary was 
rather difficult to read as the first 
few letters of each line were lost in 
the binding. This manual is again not 
an introductory text and HCCS will be 
introducing a separate book 'Welcome 
FORTH' in the near future. 


A new book 'The Complete FORTH' by 
Alan Winfield will provide a suitable 
introduction to any of the FORTH 
systems reviewed here, particularly the 
FORTH-79 Standard, as this is the 
dialect used throughout the book. All 
the basic FORTH techniques are covered 
in the book's 130 pages, including the 
definition of new defining words with 
DOES». Some of the chapters . have 
exercises, and answers are given at the 
back of the book. Two complete FORTH 
programs are also given as examples. 


'Starting FORTH', the standard work 
on FORTH covers more ground with more 
detail and is highly recommended, but 
at less than half the price "Тһе 
Complete FORTH' is very good value. 


ASSEMBLER 


Acornsoft FORTH provides an 
assembler package in source code form 
on tape or disc which may be added to 
the system by compiling it and saving a 
copy of the extended system. 
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The other two systems do not provide 
an assembler as part of the standard 
system, but allow access to the machine 
operating system via CALL (г а FORTH) 
or *FX апа OSWORD (JWB FORTH). Of 
these, CALL is the more powerful, 
allowing access not only to OSBYTE and 
OSWORD but also to file routines such 
as OSFILE etc. Level 9 Computing also 
provide a separate r q FORTH Toolkit 
which includes an assembler. 


COMPATIBILITY 

Whilst the standard FORTH words are 
the same in both systems designed to 
the FORTH-79 standard, the situation is 
not so good where new words have been 
defined to use some special feature of 
the BBC micro. An example is the word 
used to send the rest of the command 
line to the Operating System, 
equivalent to the Basic use of '*', 
Thus we have 05" (Acorn), *MOS (к а) 
and MONITOR (JWB). This doesn't need 
too much conversion but consider a word 
with three parameters to provide the 
equivalent of, say, PLOT. This could be 
K X Y PLOT, X Y K PLOT or even Y X K 
PLOT and there are good reasons for all 
three choices. I would suggest that in 
such cases as this, all authors should 
keep to the same order as in the 
equivalent Basic command, i.e. K X Y 
PLOT. This is not always the most 
convenient for FORTH, but at least it 
would be standard. 


None of the different cassette or 
disc systems reviewed are compatible 
with each other. However, all three can 
compile Wordwise files from disc if 
Return is used at the end of each line. 


ERROR MESSAGES 

Acornsoft and JWB  FORTH use error 
numbers whereas r q FORTH uses English 
messages for all errors (eg. "по such 
block' rather than "Е Msg no 6"), 


When an error occurs in the loading 
of a source block it is not always 
apparent at what point in the block the 
error has occurred. Typing 'WHERE' in 
Acornsoft FORTH displays the screen 
number and the line in error with an 
arrow pointing at the point in the line 
where the error was detected. Typing 
'WHERE' in r q FORTH enters the screen 
editor with the cursor at the point in 
the block where the error occurred. 
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UPGRADES 
Level 9 are also now supplying а 
FORTH toolkit containing an assembler, 


turtle graphics package, decompiler 
(allows you to see the definition of 
any word in the dictionary), double 
precision extension and various other 
extras. 


CONCLUS IONS 

Of the systems reviewed, r q FORTH 
stands out as the best system for 
cassette-based use, and the r q FORTH 
Toolkit is very good value at £10. 


For a disc-based system the choice 
is between Acorn and r q FORTH which 
both give good performance. 


A ROM-based FORTH has obvious 
advantages, particularly for cassette 
use. The HCCS ROM is available now but 
has several drawbacks, not being to the 
FORTH-79 standard, having а poor 
cassette | system апа with only 
restricted disc use. 


SUPPLIERS AND PRICES 
(all prices include VAT) 


Acornsoft Ltd, c/o Vector Marketing 
Ltd, Denington Industrial Estate, 
Wellingborough. 

FORTH cassette £16.85 

FORTH on the BBC Microcomputer £7.50 


Level 9 Computing, 229 Hughenden Road, 
High Wycombe, Bucks. HP13 5PG. 

r а FORTH £15.09 

r а FORTH Toolkit #10 

Starting FORTH (book) £14.35 


HCCS Associates, 533 Durham Road, Low 
Fell, Gateshead, Tyne and Wear NE9 5EY. 
JWB FORTH EPROM £34.72 

Welcome FORTH (book) £6.75 


John Wiley & Sons Ltd. (Publisher) 
The Complete FORTH, A.J.Winfield £6.95 
ISBN 0-905104-22-6 


The above may also be available from 
computer shops, specialist book shops 
and major chain stores such as 
W.H.Smith. 
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THE LATEST SOFTWARE REVIEWE 


Title : Daredevil Dennis 
Supplier: Visions Software 
Price : £7.95 


Reviewer: Alan R. Webster 
Rating. =: *** 


Dennis is a rather active stuntman, 
whose aim in life is to make as much 
money from the movies as possible. Each 
stunt he performs earns him big money, 
but there are several risks that have 
to be taken. 

There are three different scenes. 
The first requires Dennis to ride a 
motorbike, leaping over houses апа 
engaging in other dangerous pursuits. 
Among the stunts in the second scene, 
he has to jump a light-house with a 
wetbike, and in the third, his stunts 
are all performed on skis. 

The game has smooth, fast graphics 
and uses over thirty multicoloured 
'sprite' characters. It has ап 
interrupt driven sound routine, so that 
you have constant music while loading. 
There are also six skill levels to 
choose from, and each level has six 
intermediate levels, making thirty-six 
in all. 

The only reason that this game gets 
three stars instead of four is that a 
few minor programming bugs still 
remain, occasionaly spoiling your 


enjoyment of the game. 
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Title : Slalom 
Supplier: R H Software 


Price : £7.95 
Reviewer: Mike Williams 
Rating =: **** 


Maybe your imagination has been 
fired recently by watching the skiing 
in the winter Olympics on television. 
Perhaps you would like to have a go 
yourself. Well now you can, by playing 
Slalom, one of the best new games оп 
the. market. From the starting point, 
you weave your way through the gates 
and down the course to the finish. The 
conditions are often icy and the 
occasional large snowball provides an 
additional hazard that will often be 
your undoing. And your reward for 
completing the course? You start from 
the top again, but this time the gates 
are closer together, the twists апа 
turns tighter, and the course is now 
really difficult. 


Crashes are quite spectacular as the 
skier tumbles down the slope all arms 
and legs. This game offers superbly 
smooth and fast graphics, with a high 
score table, but maybe there is just 
one little niggle - even at its 
easiest, Slalom is perhaps just a 
little too hard. 


Volume-2 Issue-9 


Titles : The Pen and the Dark 
My Secret file 
Supplier: Mosaic Publishing 
Distributed by John Wiley 
Prices : £9.95 each 
Reviewer: Mike Williams 
Ratings : *** and *** 


Both of the titles reviewed here are 
described by the publisher as 
'Bookware' in that they both combine 
together as a single package a book and 
a computer program (supplied on 
cassette). The Pen and the Dark is an 
adventure game based upon a science 
fiction short story which is part of 
the package, while "Му secret file' 
provides the means of storing lots of 
personal data on a computer, and is 
based upon the Puffin book of the same 
name, again included as part of the 
package; 


IHE PEN AND THE DARK 

As a Science fiction short story 
this is indeed very short, and although 
it is based on an intriguing idea, the 
story lacks substance. The adventure 
game, which is broadly based on the 
book, seemed much more interesting once 
you accept the role playing that it 
entails. In the computer game you act 
out the part of the book's main 
character. The edition of the book 
included in the package has clearly 
been specially produced for use with 
the adventure game, and contains full 
instructions for loading and running 
the game, including the facility of 
saving the game at any stage for 
reloading later. In general, I suspect 
that this package will appeal far more 
to teenagers than to adults, and this 
is particularly true of the story. The 
adventure game is quite extensive, and 
being written in Basic, you can search 
through the coding for addituonal clues 
if you get really desperate. 
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MY SECRET FILE 
My Secret File was 


originally 
published as a Puffin Book. The book is 


written for young teenagers and 
provides the space, and lots of ideas, 
for the youngster to build up an 
extensive personal data-base about 
himself, his family and friends. In 
this respect the book is admirable, 
provided that it is treated in the 
light hearted way intended. 


I was less happy about the computer 
version provided. The book is the 
Original Puffin and thus the additional 
instructions for using the program 
cassette are supplied as a separate 
leaflet. In some cases the information 
supplied is inaccurate or incomplete, 
and the section on saving and reloading 
your data file was particularly poor 
(as was the program's screen display at 
this point). Regrettably, the program 
more or less mirrors the book, 
providing the means to store and 
subsequently redisplay the information 
recorded, but there is no attempt to 
exploit the computer's capacity for 
information retrieval or for reordering 
of the information stored. Although any 
data stored in the computer is easily 
changed I wonder how many children 
would continue to do this after the 
initial novelty has worn off. 


With more thought and development 
this particular package could have 
provided a really exciting bridge 
between home, education and the serious 
world of computing. Unfortunately, the 
opportunity has been lost by tying 
everything to the limitations of the 
original book format. None the less, 
this 15 a good combination, apart from 
the less than adequate program 
instructions provided. 


SHEPPARD SCALE - Andrew Civil 


The following program plays a succession of chords on the Sheppard tone scale. 


This appears to rise endlessly and is prone to drive you insane! 


10 REPEAT FOR Р=0 TO 11 
20 SOUND 1,-P,P*4,8 
30 SOUND 2,-11,P*4448,8 


40 SOUND 3,Р-11,Р%4-96,8 
50 NEXT:UNTIL FALSE 
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Only а limited amount of memory is available for storing function 


{PACT FUNCTION KEY DEFINITIONS (16k 
by Colin Lindsay 


key definitions. In many applications the use of this space is at a 
premium. In this article, Colin Lindsay shows you how to compact 
your function key definitions and hence maximise the use of this 


space. 


When defining any of the function 
keys, there are in fact three ways in 
which Basic keywords can be 
represented; as the full keyword, in 
its abbreviated form or as a token. 
Following the '*' command, Basic does 
not automatically tokenise Basic 
keywords, which are therefore stored as 
strings of ASCII characters. 


Substantial savings, however, can be 
made by using Basic tokens rather than 
keywords in "red key" definitions, and 
it is possible to do this if the 
correct format is used. The appropriate 
token value for certain keywords can be 
built up from a few symbols whose total 
value is taken by the computer to be 
the value for the keyword itself. This 
accumulated value is stored in memory 
using only a single byte for most 
keywords. This process allows function 
key definitions to be compacted even 
further, maximising the use of the 
limited amount of memory allocated for 
this purpose. 


AS an example, the keyword 
'RENUMBER' (token value &CC in hex) can 
be built up from "duin (ASCII value 580) 
and 'L' (ASCII value &4C). The computer 
adds these values and interprets the 
symbols as having an ASCII value of 
&CC. Hence, a key definition of 


10 *КЕҮЙ |!L|M 
is equivalent to 


10 *KEY@ RENUMBER|M 
or 
10 *KEYO REN. |M 


and occupies only 2 bytes in the first 


case compared to 9 bytes and 5 bytes 
for the second and third examples 
(because ' RENUMBER' and "REN. 2! 


following a * command are not tokenised 
but stored as ASCII character strings). 
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Using this technique, programming many 
or all of the function keys will save 
valuable space in the 256 byte buffer, 
though at the expense of rendering much 
of the code unintelligible! 


The following list includes all the 
keywords that can be "shortened" to a 
single byte in key definitions. To use 
this method type |! followed by the 
character shown after the keyword, in 
the key definition. Remember that the 
character "|" is produced by the key 
next to the cursor left key. 
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Note that the characters given for 
HIMEM, LOMEM and PAGE apply only when 
assigning values ТО these system 
variables (contrary to the information 
in the User Guide page 483 which gives 
the tokens for these variables 
reversed). 


The following program fills the 
red-key buffer using the token method 
and shows just how powerful the 
user-defined keys can become. It has 
been used for program editing (in mode 
6) and is included mainly to 
demonstrate the packing technique. 


In the above form the keys can be 
loaded in 256 bytes (just!). Using 
abbreviated keywords the same 
definitions would occupy almost 252 
more space and using full-length 
keywords would take up 40$ more space 
and, of course, wouldn't fit! 


You will need to take care when 
typing in the program. No error 
trapping has been included, as errors 
in function key definitions will only 
be revealed when a key is first pressed 
after running this program. Do not be 
tempted to add any extra spaces in the 
key definitions or the buffer area will 
overflow and the error mesage 'Bad key' 
will be displayed. The key functions 
are identified by REM statements 
preceding each definition. For those 
with a suitable printer, a key strip 
for this program is included as one of 
the examples in the article on 
printing function key labels elsewhere 
in this issue. 


10 REM Program REDKEY 
20 REM Version В1.1 
30 REM Author Colin Lindsay 
40 REM BEEBUG March 1984 
50 REM Program subject to copyright 
60 : 
100 REM Flush red-key buffer 

110 *FX18 

120 REM MODE6/BLUE BACKGROUND/RUN 

130 ХК.дј!ко: |1019;4;0;: | !y|M 

140 REM MEMORY LEFT 

150 *K.1|1^P$-1:| !qH. -P2 |м 

160 REM AUTO LIST OF LINE IN ERROR 

170 *K.2C$="L. "+| !CERL+| !=13:A3=138:X 
$-0: | !cL=1| 18| 1) C8: Y$-ASC(| 1AC$,L,1)): | 
1У8ЕЕР4: | !m|M 

180 REM CATALOGUE 

190 *K.3*.|M 

200 REM CHAIN"" 

219 *K.4| 1W""|M 

220 REM INSPECT MEMORY 

230 *К.5 | !h"From",M$:M-| ! MS: | !cX2M| ! 
8 М+99: | tq 2x" "| 1z2X: | Im|M 

240 REM PAGED LIST 

250 *K.6|L|!I|N|M 

260 REM PRINTER ON 

270 *K.7|102|M 

280 REM PRINTER OFF 

290 *K.8|103|M 

300 REM CONVERT BINARY TO HEX, THEN 
DECIMAL TO HEX 

310 *K.9T-0: | !Ih"Noz",AS:L- 1)A$: | !cX= 
L 1815.-1:Т-Тғ(27(Һ-Х))%|1; ( 1ДА5,Х,1)) 
: tm: |1477:|1Һ,2:|1472|М 

320 REM OLD/MODE6/RED/PAGED LIST 

330 *K.10 | IK|M| !k6|M| 1019; 1; |M|N| ! 1 |M 

340 PRINT' "Function keys now defined." 

350 END 


MACHINE CODE GRAPHICS 


Unfortunately a number of minor inaccuracies occured in the first article in this 
series, which appeared in the Jan/Feb issue of BEEBUG. The byte map for mode 2 on 
page 15 showed the first character block on line two as 'block 41'. Mode 2 is а 20 
character mode and this should have been marked 'block 21". The two line example on 
page 16 specified Mode 0 when Mode 4 should have been used. Lastly, the value in 
line 50 of the program on page 17 should have been &5800 and not 55820 as printed. 
We are sorry for these errors and have double checked this month to ensure there are 


no inaccuracies in this month's article. 
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MANHOLE GAME (32K) 


by E. Christie 


graphics and sound in a fast moving 
game to test your reactions. You are 
the guardian of the Catacombs below the 
streets of Cheltenham. Armed with only 
a single manhole cover it is your job 
to prevent the populace from dropping 
through four holes in the road. To do 
this you need to keep your fingers 
delicately poised above the E, D, I and 
J keys, and press the right one at the 
right time. Before the game starts you 
may also select a degree of difficulty. 
Level 3 is not for the feint of heart. 


PROGRAM NOTES 

When you play the game you may be 
surprised at the speed with which the 
Screen responds to your key press. This 
is | achieved through a particularly 
useful technique. The underground man 
is in fact drawn four times at the 
start of the game in four different 
logical. colours. But these are all set 
to physical colour black. You therefore 
cannot see them. The PROCKEY procedure 
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The Manhole Game combines very good 


then sets one of these to colour green 
according to whichever key has been 
pressed. Because the object has already 


been drawn it appears almost 
instantaneously. Pressing another key 
extinguishes that position and lights 
another. This is all performed using 
the VDUI9 call. See the User Guide page 
382 for further details. 


" " .ea0992920292992069 999 0*9 06 9 6 0 € 6 0 0 9 9 0 9 6 9 & à 0 0 0 OF 6 € 9 0 6 NV oo d 6 oo a oo ete a e o e n e uut 
е е 690 е оа ad ee hd tal te he he PC OL IE RO өсө ө о ө ө ө ө OS ө е ө ө ө ө өлө ө ө ө ө 


CE SR BE 0 0 тосце ө э е ө ө ө ө ө ө ө = ө ө ө ө ө ө ө ө ө е родено то одо 0 ө е а оо е ао C ө ө ө э ө өӊ э ө ө э э э е е ө е ө ө ө ө ө ө э * о ө ө э ө ө Ф ө э ө о ө OR IO е ө ө е LORI 


aS P9 atu etu И a eS a a a a a a ua a a e n a à 9 2 a a n € 4 à € à 9 GO «n e n a o C 4 a a 9 a a B A M à RHO RHA RSE ^ 9 a c 


10 REM Program MANHOLE 

20 REM Version Bl.6 

30 REM Author E.Christie 

40 REM BEEBUG March 1984 

50 REM Program subject to Copyright 
60 : 


100 VDU23,224,24,24,255,189,189,36,36 


,102:С5-СНВ5255:р5-СНЮ51 30 
110 ON ERROR GOTO 2380 
120 : | 
130 REPEAT 
140 MODE 7 
150 PROCstart 
168 MODE2:VDU23,1,0; 0; 0; 0; : PROCfour 
170 T=INKEY (100) 

180 PROCrandom 
190 REPEAT 

200 PROCtwO 

210 PROCkey 

220 IF О>=@ THEN D-D-0.2 
230 UNTIL miss>9 
240 PROCend 

250 UNTIL FALSE 
260 END 

270 : 

1000 DEF PROCkey 
1010 BS=INKEYS (2) 


1020 IF BS<>"" THEN AS=BS ELSE 1100 
1030 IF BS<>"E" AND BS<>"I" AND BS<>"D 
" AND BS<>"J" THEN 1100 


1040 FORI-2TO5:VDU19,1,0,0,0,0: NEXT 
1050 IF В5-"Е" VDUI9,2,2,0,0,0 
1060 IF BS="I" VDU19,3,2,0,0,0 
1070 IF BS="D" VDUI9,4,2,0,0,0 
1080 IF BS="J" VDU19,5,2,0,0,0 


1090 *FX 15,0 

1100 ENDPROC 

1118-5 

1120 DEF PROCtwo 

1130 GCOL09,6:VDU5:MOVE X,Y+5 

1140 РВІМТСНВ5224 

1150 FORK=1TOD: NEXT 

1160 IF Y=798 AND Х>300 AND Х<420 AND 
AS«»"E" THEN 1320 

1170 IF Ү-790 AND Х>300 AND X«420 AND 
ASz"E" THEN 1260 
„1180 ТЕ Y-790 AND Х>700 AND Х<820 AND 
AS«»"I" THEN 1320 

1190 IF Ү=790 AND X»700 AND Х<820 AND 


 A$-"I" THEN 1260 


1200 IF Y-430 AND Х>300 AND X«420 AND 
AS«»"D" THEN 1320 

1210 IF Y-430 AND Х>300 AND X«429 AND 
AS="D" THEN 1260 
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AS<>"J" THEN 1320 

1230 IF Y-430 AND Х>700 AND X«820 AND 
AS="J" THEN 1260 

1240 500М00,-15,30,1:5ООМ00,-15,70,1 

1250 ООТО1 280 

1260 ѕсоге=ѕсоге+1 

1278 SOUND1,-15,50,3 

1280 GCOL0,0:MOVE X,Y+5 :PRINTCHRS224 

1290 IF DI=1 THEN X=X+6@ ELSE X-X-60 

1300 IF X>115@ OR X«50 THEN PROCrandom 
1318 GOTO1419 

1320 SOUNDI,-15,100,1:SOUND1,-15,150,1 

1338 SOUND1,-15,80,1:SOUND1,-15,50,1 

1340 SOUNDI1,-15,100,1 

1350 miss-miss-*l:IF miss>9 THEN 1410 

1360 GCOLO,0:MOVEX,Y-5: PRINTCHRS224 

1370 GCOL@,6:MOVEX, Y: PRINT" х" 

1380 FORIZITO300:NEXT 

1390 GCOLO0,0:MOVEX,Y: PRINT"*" 

1400 PROCrandom 

1418 ENDPROC 

1420 : 

1430 DEF PROCrandom 

1440 Х=150:Ү=430:рІ=1 

1450 RS=RND (4) 

1460 IF R$-1 X=150:Y=790:DI=1:GOTO 149 
0 

1470 ТЕ В%-2 X-1050:Y-790:DI-0:GOTO 14 
90 

1480 IF В%-3 X-z1050:Y-2430:DI-0 

1498 ENDPROC 

1500 : 

1519 DEF PROCend 

1520 GCOLO,12:MOVE390,550: РВІМТ"САМЕ E 
NDS" 

1530 GCOLO,11:MOVE390,130: PRINT"Score: 

"score 

1540 FOR 1-1 TO 8 

1550 SOUND1,-15,100,2:SOUND3,-15,110,2 
:S0UND1,-15,150,2 

1560 SOUND3,-15,130,2: SOUND1,-15,50,2: 
SOUND3,-15,60,2 

1570 SOUND1I,-15,80,2: SOUND3, -15,90,2:8S 
OUND1,-15,50,2 

1580 SOUND3,-15,70,2 

1590 NEXT I 

1600 TIME-2: REPEAT UNTIL ТІМЕ-500 

1618 CLG 

1620 ENDPROC 

1630 : 

1640 DEF PROCfour 

1650 CLS:GCOLG, 1:H=¢ 

1660 VDU19,1,0,0,0,0 

1670 FOR Ј=610 TO 730 STEP 30 

1680 IF J«660 THEN 1740 

1698 FOR I=1 TO 5 

1700 READ Х,Х1 

1718 PROCbox 

1720 PROCbox2 
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1730 NEXT I 


1740 FOR K=1 TO 4 

1750 READ X2 

1760 PROCbox! 

1770 NEXT K 

1780 NEXT J 

1790 ТЕ H-Ü RESTORE:H-2-360:GOTO1670 

1800 GCOL0,2:W-2350:22750:X120:Y12-z0: RES 
TORE2220 

1818 VDU19,2,0,0,0,0 

1820 MOVE W,Z 

1830 FORJ-z1TO30: READX, Y: DRAWX+X1 ,Ү+Ү1: 
NEXT 

1840 DRAW499+X1 , 7504 Yl: DRAWA90 4X1 , 760+ 
Y13 DRAW31@0+X1 , 768+Y1 : DRAW318+X1,750+Y1: 
DRAW40@+X1,750+Y1 

1850 MOVE465+X1,715+Y1:DRAW460+X1 , 735+ 
Y1:DRAW445+X1 , 740+Y1 : DRAW430+X1,736+Y1: 
DRAW42@+X1,720+Y1 

1860 MOVE43@+X1 , 725+Y1 : DRAW430+X1 , 722+ 
Yl 

1870 MOVE445+X1,717+Y1:DRAW445+X1, 713+ 
Yl 
1880 IF Хі-0 AND Ү1=0 PROCSeta:GOTO!82 
@ М 1 
1899 IFX1-400AND Ү1-0 PROCSetb:GOTO!82 
0 

1900 IFX1=@AND Ү1--360 PROCsetc:GOTO18 
20 

1910 VDUI9,1,1,0,0,0:VDU19,5,2,0,0,0 

1920 ENDPROC 

1930 : 

1940 DEF PROCSeta 

1950 W-750:22750:X1-400:Yl1-0:GCOL0,3:V 
DU19,3,0,0,0,0 

1960 RESTORE2220 

1978 ENDPROC 

1980 : 

1990 DEF PROCsetb 

2000 W-350:2-2390:X1-0:Y1-2-360:GCOL0,4: 
VDU19,4,0,0,0,0 

2010 RESTORE2220 

2020 ENDPROC 

2030 : 

2040 DEF PROCSetc 

2050 W-750:22390:X12400:Y1--360:GCOL0, 
5:VDU19,5,0,0,0,0 

2060 RESTORE2220 

2070 ENDPROC 

2080 : 

2090 DEF PROCbox 

2100 MOVEX, (J+H) : DRAWX--50 , (J+H) : DRAWX+ 
50,Ј+Н+30: DRAWX, J+H+39 

2110 ENDPROC 

2120 : 

2130 DEF PROCboxl 

2140 MOVEX2,J+H: DRAWX2+5@ , J+H: DRAWX2+5 
9, J+H+39: DRAWX2, J+H+3@: DRAWX2 , J+H 

2150 ENDPROC 
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2170 DEF PROCbox2 2270 miss-Ü:scores0Q:Ml-Q:ASz"J" 

2180 MOVEX1,J+H: DRAWX1-5@ , J+H: DRAWX1-5 2280 VDU23,1,0;0;0;0; 

Q,J-H*30: DRAWX1 , JH 30 2290 FOR 1-0 TO 1:PRINTTAB(9,1I+5)CHRS1 

2190 ENDPROC AlCHRS134"THE MANHOLE GAME":NEXT I 

2200 DATA500,550,600,650,530,580,630,6 2300 РВІМТТАВ (2,10) СНВ$130"Вапде of di 
39 fficulty? (1,2 or 3)" 

2210 DATA52,950,100,1000,150,1050,200, 2310 *FX15,0 
1100,250,1150,500,550,600,650,20,980, 70 2320 REPEAT:D=GET: UNTIL INSTR (“1 23" „СН 
,19030,120,1080,170,1130,220,1180,530,58 RSD) 
0,630,630,50,950,100,1000,150,1050,200, 2330 р-100%(51-р):ІЕ D=@ THEN ре! 
1108, 250,1150, 500,550, 690, 650 2340 CLS:PRINTTAB(13,19) "GENTLY !1!1!! 

2220 DATA 350,745,380,740,400,705,410, TE 
675 , 390,635, 395,595,378, 590, 378,585,419 2350 TIME=0:REPEAT UNTIL ТІМЕ-200 
,585,415,625, 435,659,455,655, 500, 645,52 2360 ENDPROC 
5,645,525,655,500,660,470,670,460,695,5 2370 : 
09,705,525,705,525,713,465,715,455,705, 2380 REM ERROR EXIT 
435,690,425,690,420,700,420,720,405,725 2390 ON ERROR OFF 

2230 DATA 395,740,490,750 2400 MODE7:IF ERR<>17 THEN REPORT: PRIN 

2240 : T" at line ";ERL 

2250 DEF PROCstart 2419 END 


2260 CLS:RESTORE 


SOUND SUPPRESSION 
Sound output can be prevented by the command *FX210,n where n is any non zero 


value. If n equals zero, then the sound channel is reinstated. < 


МИХХХХХКККХККХХККХХХАХХХАХХХХАХХХИ 

Ос 260696 060620606060 060606 ae he en 25. 995.590 030 өз, ө ө ө ө ө ө о ө ө э ө ө ө ө э ө ө ээ э ә ө э э ө ө ө о ө е э э аө „а а э зле 

= ИПВЕРИШТЕШЕЕРЕЕЕЕИЗЕЕЕЕЕЖШЕЕЕЕШЗЕ  ШЕШИШШШШШШИШШШИШШШШИЕЕШИГШШЕЕЕТ ЕЕЕ ЖШ ШЕШШЕТШ 
„*+°*ь°*5*»*»°*»°*»°*» 6 0 0 ө ө ө ө ө ө ө ө ө өе ө ө ө ө ө ө ө э ө э ө ө ө ө ө ө ө ө е э е е ө э ө ө э ® ө ө ө э е ө э ө э ө о ө ө ө о өе е 


*SAVE EXTENSION - M.Sykes 

When using *SAVE to save a file, the usual method is to type: 
*SAVE «filename» «start address> «*length» «execution address> 
This can be expanded to include the load address of the file when loaded back into 
the computer. The load address is normally taken to be the start address of the 
file, but it can be appended to the end of the normal set of numbers. i.e. *SAVE 
«filename» «start address> «length» «execution address> «reload address>. 

If the load address is typed in as FFFF then the computer cannot load the file 
back into memory unless the *LOAD «filename» <load address> command 15 used, 


offering an easy method of software protection, but do make a list of the necessary 
load addresses. 


DIRECT ENTRY OF BASIC TOKENS (0.5. 1.2) - L.A.Leetham, Sheila Snowden, Peter Potter 
When typing in program or in immediate mode it is possible to enter some keywords 

with the shift or control function keys e.g. PRINT ^(Ctrl-f0). Ctrl-f0 generates the 

ASCII code 690 which is entered into Basic input buffer and is interpreted as а 

token, the token for PAGE being 590. This technique is particularly useful in saving 

space when defining user keys. Examination of the list of keywords and tokens (see 

BEEBUG reference card) will show all the keywords that can be generated in this way. 

Some of the more useful ones are:- 

Shift f5 - ERROR Ctrl fl - TIME 

Shift ЕВ - STEP Ctrl f2 - LOMEM 

Ctrl ЁЙ - PAGE Ctrl ЕЗ - HIMEM 

Note that some of the characters generated by these keys are also teletext control 

codes and that these will be generated when the program is typed in. However they 

are turned into keywords when the program is listed. 
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FOOTBALL KRAZY (32K) 


by Alan Dickinson 


At the height of the 


football 


Season we present here, for your 


entertainment, the best game of football in town! In each game, you 
get 90 seconds of fast moving, high scoring action, where you pit 
your wits and skill against those of the computer. 


Although this comparatively short 
program is written in Basic, the game 
is fast and, furious as a result of the 
good structuring techniques that have 
been used. This also enables you to 
modify the program quite easily, and 
change, for example, the playing time 
and the names of the teams. 


In the game presented here, you are 
designated as the  'United' team with 
the yellow chequered shirts, playing 
against the computer, which controls 
the 'City' team in the pale blue 
Striped snirts. 


asks you to enter the position in which 
you want your forward man to play (the 
goalie always stays on the bottom row). 
If you enter a value outside of the 
range asked for, then your man will be 
assigned to position 7. Position 26 is 
in the row next to your goalie, and 7 
is in the row next to the computer's 
goalie. You are then asked for a value 
for the computer's defence tactic; this 
governs how the computer will respond 
in the game. The greater the number 
entered, the harder the game played. 
Try, for example, entering 26 іп 
response to the position request, and 
100 to the defence tactic. In this 
arrangement, you will find it virtually 


BEEBUG 


When the program runs, it initially 
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XL KRAZY 


impossible to beat the computer as it 
will dribble, tackle, pass and score 
with unnerving accuracy, and run rings 
around your players (Nobody іп the 
office won, or even scored in this 
mode!). If you try entering negative 
numbers to 'defence tactic', you will 
find that you can rapidly bring your 
opponents players to a standstill! 


To move your players, use the "и" 
key to go to the left, 'X' to move 
right while at any time, pressing  '/' 
will allow an oncoming ball to pass 
through your player. A word of warning 
though, when a goal is scored, the 
computer moves its men back to the 
centre of the pitch, but leaves your 
men where they were when the goal was 
scored. You should, therefore, move 
your men back quickly, or the computer 
will instantly score another goal! 


If you do wish to change the playing 
time, alter the value of Z$ in line 
400, and if you'd prefer different team 
names, then they should be changed in 
lines 620, 630, 1070, 1080, and 1210 to 
1250. (Don't forget to alter the 
relevant TAB values to take into 
account any change in length of the 
names you use.) 


Now you can sit back and enjoy the 
Skill of the cup final every night of 
the week! 
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40 


10 REM Program: FOOTER 
20 REM Version: В1.5 
30 REM Author A.DICKINSON 
40 REM BEEBUG March 1984 
50 REM Program subject to Copyright 
60 : 
70 ON ERROR IF ERR<>17 THEN ON ERROR 
OFF:MODE 7:REPORT:PRINT" at line ";ERL 
: END 
80 REPEAT 
90 MODE 7 
100 PROCinit 
110 PROCtitle 
120 MODE 1! 
130 VDU23,1,0;0;0;0;0 
140 PROCstart 
150 PROCtune 
160 PROCDlay 
170 PROCfinalscore 
180 REPEAT 
190 AS=GETS 
200 UNTIL AS="Y" OR AS="N" 
210 UNTIL AS="N" 
220 *FX15,1 
230 MODE 7 
240 END 
2503 
260 DEF. PROCinit 
270 VDU23,224,0,0,0,24,24,0,0,0 
280 VDU23,225,0,24,60,60,24,126,173,1 
81 
290 ур023,226,173,181,60,36,36,36,36, 
102 
304 VDU23,227,0,24,60,60,24,126,129,1 
89 
310 VDU23,228,129,189,60,36,36,36,30, 
102 


320 VDU23,229,0,0,0,0,0,0,0,255 

330 VDU23,230,255,0,0,0,0,0,0,0 

340 VDU23,231,1,1,1,1, 1, 1, 1,1 

350 VDU23,232,128,128,128,128,128,128 


, 128,128 

360 У0023,233,255,1,1,1,1,1,1,1 

370 VDU23,234,255,128,128,128,128,128 
‚128,128 

380 WDU23,235,1,1,;1, Vo V1, 15:255 

390 VDU23,236,128,128,128,128,128,128 
‚128,255 

400 2%=9000: КЕМ GAME LENGTH 

410 BS=CHRS17+CHRS$7+CHRS224 

420 PS=CHRS$32+CHRS226+CHRS32+CHRS114C 
HRS8+CHRS$8+CHRS$8+CHRS 324CHR$2254CHR$32 

430 QS=CHRS$32+CHRS228+CHRS32+CHRS11+C 
HRS8+CHRS8+CHRS8+CHRS 32 +CHR$227+CHR$32 


440 ENDPROC 


450 : 

460 DEF PROCtitle 

470 CLS:FORP-2TO3:PRINTTAB (8, P) СНВ513 
1:СНВ6157;СНВ5141;СНВ51 29"ЕООТВАШ, KRAZ 
ү " “СНК51 56: МЕХТ 


475 PRINTTAB(%,5)"The two teams playi 
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ng in this game are United and City. Y 
ou are playing for United. The keys 
you use are:-" 


480 РҺІМТТАВ(10,10)СНВ5129"7 = LEFT"; 

490 PRINTTAB(10,11)CHRS$130"X = RIGHT" 
7 

500 PRINTTAB (1Ø,12)CHR$131"/ = THROUG 


Н-ВАШ,"; 

501 PRINTTAB(9,14)"A through-ball mea 
ns that you can allow the ball to trave 
1 through your player." 

510 PRINTTAB(0,18)CHR$133"Attack posi 
tion 7-26 (This is the";TAB(0,19)CHRS13 
3;"position of your forward player" TAB( 
0,20)CHRS$133;"on the screen)-"; 

520 INPUT A% 

530 IF А%<7 OR А%>26 A$-13 

540 PRINTTAB(0,22)CHRS$134"Defence tac 


-ULC та 


550 INPUT T$ 

560 ENDPROC 

570 : 

580 DEF PROCstart 

590 VDUI9,0,4,0,0,0:VDU19,1,6,90,0,0 
600 SS-STRINGS (3,CHRS$32) 

610 CLS:SP2-0:502-0 

620 PRINTTAB(1,1)"UNITED 0"; 

630 PRINTTAB(28,1)"CITY 0%; 

640 PRINTTAB (1,3) STRINGS (38,CHRS$229) ; 
650 PRINTTAB (1,30) STRINGS (38,CHRS239@) 


660 PRINTTAB(14,3)SPCI1 

670 РВІМТТАВ (14,30) 5РС11 

680 PRINTTAB(13,3)CHR$235; TAB (25, 3) CH 
R$236; TAB (13,30) CHRS233; TAB (25,30) CHRS2 
34 

690 FOR Y$-4 TO 29 

700 PRINTTAB(0,Y2$)CHRS231 

710 PRINTTAB (39, Y2) СНВ52 32 

720 NEXT 

730 Р%-18 

740 COLOUR2 

750 PRINTTAB (P3,A%) PS;TAB(P%, 28) PS; 

760 QO%=18:B3=18+RND (4) 

770 COLOUR 

780 PRINTTAB (Q%,5) QS; TAB (Q2, B2) 05; 

790 ENDPROC 

809 : 

810 DEF PROCtune 

820 RESTORE 

830 REPEAT 

840 READ V$,D$:SOUND 1,-15*V$,72,D$ 


850 UNTIL D$-0 

860 DATA 1,3,0,3,1,3,0,3 

870 DATA 1,2,0,1,1,2,0,1,1,4,0,2 
. 880 DATA 1,2,0,1,1,2,0,1,1,2,0,1,1,4, 
0,2 


890 БАТА 1,2,0,1,1,4,0,0 
900 ENDPROC 
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910 : 

920 DEF РВОСр1ау 

930 TIME=9 

940 REPEAT | 

950 X$-20:D£$-1-RND(2):Y$-16 

960 IF RND(18)>5 Е%=1 ELSE E$-- 

979 PRINTTAB (0%,5) 55;ТАВ (0%,В%) 55; TAB 
(0$,4) SS; TAB (Q$, B$-1) S$; 

980 Q%$=182 PRINTTAB (X3,Y%) BS; 

990 PROCutd: PROCcity 

1000 REPEAT 

1010 PRINTTAB(19,1);TIME DIV 100; 

1020 PROCutd:PROCcity:PROCball 

1030 UNTIL Ү%<2 OR Ү%>30 OR TIME>Z3+99 
1040 IF Ү%<2 5Р%=5Р%+1 

1050 IF Ү%>30 50%=508%+1 

1060 PRINTTAB(X£,Y2)" "3 

1070 PRINTTAB(1,1)"UNITED ";SP% 

1080 PRINTTAB (28,1) "CITY "50%: 

1090 FOR I$-0 TO 100 STEP 7 

1100 IF Ү%<2 SOUND 1,-15,1%,2 ELSE SOU 
ND 1,-15,110-15,2 

1110 NEXT | 

1120 UNTIL TIME>Z3+99 

1130 ENDPROC 

1140 : 

1150 DEF PROCfinalscore 

1160 PRINTTAB(15,16)" FULL TIME "; 
1170 PROCtune 

1180 REPEAT UNTIL TIME>Z3+500 

1190 CLS 

1200 РВІМТТАВ (2,4)"Result:" 

1210 PRINTTAB(4,6)"United ";SP$; 

1220 PRINTTAB (4,8) "City ";560%; 

1230 IF SP%>SQ% PRINTTAB (4,11) "UNITED 
WIN THE MATCH"; 

1240 IF 5Р%-50% PRINTTAB(4,11)"IT'S A 
DRAW ! ! 1"; ; 

1250 IF SP%<SQ% PRINTTAB(4,11)"CITY WI 
М THE MATCH !1!1"; 

1260 РВІМТТАВ (2,14) "Again 2"; 

1270 *FX15,1 

1288 ENDPROC 

1290 : 

1300 DEF PROCutd 

1310 COLOUR2 

1320 IF INKEY(-98) AND P251 Р%-р%-1:РВ 
INTTAB (P£$,A2)PS;SPCl; TAB(P2,28)P$;SPCl; 
: ENDPROC 


41 


1330 IF INKEY(-67) AND Р%<36 PRINT TAB ( 

%,А%) SPC13PS:TAB(P%, 28) SPC13PS3 3 PS=PSt+ 
1: ENDPROC 

1340 PRINTTAB (P%,A%) PS; TAB (P%, 28) PS; 

135@ ENDPROC 

1360 : 

1378 DEF PROCcity 

1380 COLOUR] 

1390 IF Х%<0%+1 AND 0%>3 AND Y3<13+T3 
Q%=Q3-1 : PRINTTAB (0%, 5) Q$; SPC1; ТАВ (Q2, B2 
)OS;SPC1; : ENDPROC 

1400 IF X%>Q%+1 AND 0%<34 AND Y2«13-T$ 

PRINTTAB (03,5) SPC1 205 2 TAB (Q2, B2) SEC1;Q 

::0%=0%+1 : ENDPROC 

1410 PRINTTAB (0%,5) OS; TAB (Q2, B2) QS; 

1420 ENDPROC 

1439 : 

1440 DEF PROCball 

1450 N$-X$4D$ 

1460 М%=Ү%+Е% 

1470 IF М%<1 OR М%>38 N$-X:D£--D$:SOU 
ND 1,-15,100,1 

1480 IF М%-30 OR М%-3 IF М%<14 OR N%>2 
3 M$zY$:E$--E$:SOUND 1,-15,120,1 

1490 IF M$-5 OR М%-В% PROCQman 

1500 IF M$-A$ OR М%-28 PROCPman 

1510 PRINTTAB (X%,Y%) 5РСІ ; TAB (N$, M2) BS; 

1520 Х%-М%:Ү%-М% 

1539 ENDPROC 

1540 : 

1550 DEF PROCPman 

1560 IF М%<Р% OR М№М>р%+2 ENDPROC 

1570 SOUND 1,-15,60,1 

1580 IF INKEY(-67) D$-- 

1590 IF INKEY(-98) D%= 

1600 IF NOT INKEY(-105) Е%--Е% 

1610 ENDPROC 

1620 : 

1630 DEF PROCQman 

1640 IF N2«Q$ OR N%>0%3+2 ENDPROC 

1650 SOUND 1,-15,52,1 

1660 IF RND(104T$)»3 E$-1 ELSE E$--E$ 

1670 D$-0 

1680 RS=RND (19) 

1690 IF В%>7 D%=- 

1700 IF R&<4 DS=1 

1710 IF Т%<3 OR В%<4 ENDPROC 

1720 IF Х%>25 D$--1 

1730 IF X$«15 D$-1 
1740 ENDPROC 


DISABLING THE ESCAPE KEY & DESTROYING PROGRAMS 


ХЕХ 200,0 Re-enables the escape key. 


*FX 200,1 Will disable the escape key. 


*FX 200,2 enables the escape key, 


but pressing Break will clear the memory, 


preventing the program being retrieved with OLD. 
*FX 200,3 disables the escape key, and clear the memory on Break. 
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IF YOU WRITE TO US 


(Members only) SUBSCRIPTIONS 


All back issues are kept in print (from Send all applications for membership, 
April 1982). Send 90p per issue PLUS an subscription renewals, and subscription 
A5 SAE to the subscriptions address. queries to the subscriptions address. 
This offer is for members only, so it 


is ESSENTIAL to quote your membership | MEMBERSHIP COSTS: 
number with your order. Please note U.K. 

that the BEEBUG Reference Card and £5.40 for 6 months (5 issues) 
BEEBUG supplements are not supplied £9.90 for 1 year (10 issues) 


with back issues. 
Eire and Europe 


Membership £16 for 1 year. 
Middle East £19 
Americas and Africa £21 
Elsewhere £23 
Payments in Sterling preferred. 


PROGRAMS AND ARTICLES HINTS 


All programs and articles used are paid There are prizes of £5 and £10 for the 
for at around £25 per page, but please best hints each month. 


give us warning of anything substantial 
that you intend to write. Та the case Please send all editorial material to 


of material longer than a page, we the editorial address opposite. If you 
would prefer this to be submitted on require a reply it is essential кој 
cassette or disc in machine readable quote your membership number  and| 
form using "Wordwise", "Minitext enclose an SAE. 
Editor" or other means. If you use 
cassette, please include a backup copy 
at 300 baud. 


BEEBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Technical Editor: Philip Le Grand. Production Editor: Phyllida Vanstone. 

Technical Assistants: Alan Webster and David Fell. 

Managing Editor: Lee Calcraft. 

Thanks are due to Sheridan Williams, Adrian Calcraft, John Yale, Robert Barnes, 
Michael Beasley, Colin Lindsay, Hugh Brown-Smith and Tim Powys-Lybbe for assistance 
with this issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever for errors in articles, programs, ог advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications Limited. 

BEEBUG Publications Ltd (c) March 1984. 


BEEBUG NEW ROM OFFE 


1.2 OPERATING SYSTEM 


A special arrangement has been agreed between Acorn and BEEBUG whereby BEEBUG 
members may obtain the 1.2 operating system in ROM at the price of £5.85 
including VAT and post and packing. 

The ROM will be supplied with fitting instructions to enable members to install 
it in their machine. 

If the computer does not subsequently operate correctly, members may take their 
machine to an Acorn dealer for the upgrade to be tested, which will be done at 
a charge of £6.00 plus VAT. This charge will be waived if the ROM is found to 
have been defective. If the computer has been damaged during the installation 
process, the dealer will make a repair charge. 


% NEW ROMS FOR OLD 
e&* EXCHANGE YOUR 1.0 FOR THE 1.2 


We can now exchange your old 1.0 operating system for the new 1.2, free of 
charge. То take advantage of this offer, please send your 1.0 (supplied on 
eprom with a carrier board), in good condition to the address below. 


£5 FOR YOUR OLD 1.0 
If you have the 1.0 operating system and have already bought a 1.2, we will 


exchange the 1.04 (supplied on eprom with a carrier board) for a #5 
voucher. This voucher may be used against any purchase from BEEBUGSOFT. 


ADDRESS FOR 1.2 OS:- 
ROM Offer, BEEBUG, PO Box 109, High Wycombe, Bucks, НР11 2TD. 


* Simply plugs into the BBC Micro 
* No soldering necessary 


* Increases the sideways ROM capacity 
to 16 


^ 


* Fully buffered - allows all sockets 
to be used 


* Complete with full and detailed 
instruction booklet. 


* Accepts 16K RAM in special sockets 


RAM / RAM/ 
ROMISA К0М158 


idewise = 


S1| | |52 SIDEWAYS ROM/RAM EXPANSION 


* Battery back up facility for RAM 


0.5. ROM 
SOCKE T 


* As used at ВЕЕВОО 


* Reviewed in BEEBUG vol.2 number 6 pee 


HOW TO ORDER 


Please send your order with a cheque / postal order made payable to BEEBUG, and 


enclose your membership number. We are unable to supply the board to overseas 
members. 


The address for SIDEWAYS is: 
BEEBUGSOFT, PO Box 109, High Wycombe, Bucks. НР11 2TD. ' 
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To save wear and tear on fingers and 
brain, we offer, each month, a 
cassette of the programs featured in 
the latest edition of  BEEBUG. Тһе 
first program on each tape is a menu 
program, detailing Ње tape's 
contents, and allowing the selection 
of individual programs. The tapes are 
produced to a high technical standard 
by the process used for the 
BEEBUGSOFT range of titles. Ordering 
information, and details of currently 
available cassettes are given below. 


All previous magazine cassettes (from 
Vol.1 No.19) are available. 


This month's cassette  (Vol.2 No.9) 
includes: the Manhole game, Machine 
Code | Graphics example programs, 
ASTAAD2, the full new version, 
Stonemason, Football game, Multiple 
Disc Catalogues (4 programs in all), 


compact definer, 


function key 
programs to test your sideways ROMs, 
program version of Bach's Cantata 
No.147, plus the winning program from 


the Brainteaser Roman Numeral 
competition. 

All magazine cassettes cost £3.00 
each. For ordering information see 


BEEBUGSOFT advertisement at the back 


. Program to print function key labels, of tr 


of this month's magazine supplement. 


We are able to offer members 
subscription to our magazine 
cassettes. Subscriptions will be for 
a period of one year and are for ten 
consecutive issues.of the cassette. 
If required, subsriptions may Бе 
backdated as far as \о1.1 No.18, 
which was the first issue available 
on cassette. This offer is available 
to members only, so when applying for 
subscription please write to the 
address below, quoting your 
membership number and the issue from 
which you would like your 
subscription to stat 


ВЕЕВЏО MAGAZINE BINDER OFFER 


А hard-backed binder for 


are dark blue in colour with 'BEEBUG' 


in gold lettering on the spine. They 
allow you to store the whole of one 
volume of the magazine as a single 
reference book. Individual issues may 
be easily added or removed, thus 
providing ideal storage for the 


current volume as well. 


Printed in England by Staples Printers St Albans Limited at The Priory Press. — 


BEEBUG 
magazine is available. These binders 


CASSETTE SUBSCRIPTION ADDRESS: 


Please send a sterling cheque with 
order, together with your membership 
number and the date from which the 
subscription is to run, to: 

PO Box 129, High Wycombe, Bucks, 


CASSETTE SUBSCRIPTION PRICE: 

UK £33 inc VAT and p&p 

OVERSEAS (inc Eire) £39 inc p&p 
(no VAT payable). 


BINDER PRICE 
U.K. £3.90 inc p&p, and VAT. 
Europe £4.90 inc p&p / 

(no VAT payable). 
Elsewhere £5.90 inc p&p 

(no VAT payable). 


Make cheques payable to BEEBUG. 

Send to Binder Offer, BEEBUG, PO Box 
109, High Wycombe, Bucks, 

Please allow 28 days for delivery on 
U.K. orders. 
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